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Kedves Olvasó! 


Érdekel a számítástechnika, de gondot okoz számodra megfelelő és érdekes fel- 
adatok beszerzése, szeretnéd megtanulni a BASIC nyelvet, de még nem iudod, 
hogyan fogj hozzá, szeretnél programozni, de kifogytál az ötletekből? 

Neked írtam ezt a könyvet! 

Neked írtam, mert még nem tudsz programozni. Olvasd végig, és oldd meg 
sorban a feladatokat, és megismerkedsz a Commodore 16 érdekességeivel. Segít- 
ségedre lehetnek a következő könyvek: HETEDHÉT sorozat, valamint a Commodore 
16-os Felhasználói kézikönyv. 

Már tudsz programozni, és szeretnél érdekes feladatokat megoldani; neked 
is írtam ezt a könyvet. Lapozgasd a könyvet, és válogass kedved szerint, de vi- 
gyázz, mert a feladatok a témákon belül egyre nehezednek, és a , Néhány vegyes 
feladat" című csoport már komolyabb tudást feltételez. 

A könyv tartalmazza a feladatok megoldását is. Ha úgy érzed, hogy nem 
tudsz megoldani egy feladatot, lapozz hátra, és mielőtt megnéznéd a megoidást, 
olvasd el, mit találsz a , Vegyük észre" megjegyzés után! Az ott olvasható ötletek 
remélem, segítségedre lesznek. 

A közölt programok nem feltétlenül a legegyszerűbbek, de találhatsz ben- 
nük olyan ötleteket is, melyeket később te is felhasználhatsz. Ezért akkor is érde- 
mes elemezned a megoldást, ha a te programod is működik. 

Mielőtt programozni kezdenél, javaslom, hogy tervezd el, mit akarsz csinálni, 
és erre mi lehet a legcélravezetőbb eljárás. A tervezésben hasznos segítőd lehet 
egy jól megrajzolt folyamatábra. 

Vigyázat, ha egy program fut, az még nem jelenti azt, hogy jó is. A jó prog- 
ram a feladat által megengedett összes érték esetén működik. Ezért egy kész 
programot mindig tesztelni kell. Mivel a tesztelést csok véges számú elemmel 
végezhetjük el, meg keli állapítanunk a feladat szempontjából kritikus értékeket, 
és a próbafuttatásokat ezekre az értékekre kell elvégezni. Némi gyakorlattal ezek 
a kritikus értékek könnyen megtalálhatók. 

A jó programozó nemcsak a programíráshoz, hanem a programolvasáshoz is 
ért. Ez azt jelenti, hogy idegen programokról is mindig meg tudja állapítani, hogy 
azok mit csinálnak. Ilyen típusú feladatokat tartalmaz a , Mit csinál a gép" című 
fejezet. Javaslom az áttanulmányozását mindenkinek. 

Rernélem, a feladatok között te is találsz kedvedre valót! A további munkához 
sok sikert és kellemes időtöltést kíván: 

a szerző. 


I. FELADATOK 


1. A BILLENTYŰZET HASZNÁLATA 


1.1 Példák 


1. Gépeld be a következő programot a gépbe. Ennek segítségével gyakorold 


a 


ng ea min bum es 
m Mm IXIIYXIDIDMY 


í) Mm a DI 
nm 


[o ! 


ha] iki 


tab b feb ks es es e 
ra MD (I) 0) - Mm en 
DD Mm mi  ŰM Mm E MűmINDD 


(La 0 EGE AS ER 14 ER 1 4 ERR 3 4 ERR a. ER 1 ! ERO SRL 


billentyűzet használatát! 


PRINT"! 
RFRINT TAB-(1983F "BILLENTYUEGYAKORLAT" 
PR IIIJT " E7ETSTETEI" 
PRINT"A§A GEP A KEPERNYO KÖZEPREN BIZONYOS IDEIG" 
PRINT" HEGJELENMIT EGY JELET. EZT KELL BEGEPRELNI" 
PRIHT""BHHA MEGFELELÜG IDŐN BELUL SIKERUL A Jü " 
PRINT "BILLEHTY UT LEUTMI, A GEF HAGAS HANGON " 
PRIHTYTELEZ ELLENMKEZÜ ESETBEN MELY HANGOT AN" 
FRINT"HHA KEZŐOHETJÜUK , HrOüráI MEG EGY GOMBOT" 
GETUSSHTIF V4-"" THEN GÜTŰ 1A9a 

PRINT".4" 

FOR 1-1 Tü ea 

SzI NT-(RRHO(C(IIXxXBZ3I BZ 
PRINT" also gjsiájojázáásazttzuásatáal ,CHRE(RI 
FOR I-II TO 5A 

BETA 

JE A 


ÚJ 


-""! THEM GNüTM 2 
57-i HR:E(AI THEN 5 


IF 5r1:B-881:GOSUB 26A:-GOTO 22 
B-77A-GOSUB ESAIGOTO e2A 

MEXT J 

B-77Ö:GOSUR 2sA 

PRINT"" 

MEXT I 


PE INT " HEREKER B BABE EN Hi KETEFETÉTETETETÉTETETETEI 28 PROBA , "FS "TALÁLAT" 
EMU 

VOL 7 
SULI 1,E 
RETLIRHI 


2. Töröld a képernyőt! 
a) Írd tele O betűkkel! 
b) Törölj minden második betűt! 


3. Töröld a képernyőt! 
a) Írd tele Z betűkkel! 
b) Szúrj a Z betűk közé I betűket! 
c) Szúrj minden ZIZI szó közé egy szünetet! 
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4. Gépeld be az összes karaktert a billentyűzetről! 
a) Töröid a képernyőt jobbról balra! 


5. Jelenítsd meg az összes grafikus jelet! 
a) Töröld balról jobbra a képernyőt! 


6. Töröid a képernyőt! 
a) Mozgasd a kurzort a képernyő középső sorában és írd ki: COMMO. 
DORE 16! 


b) Rajzolj a szöveg alá és fölé díszítő sorokat! 


7. Írd tele a képernyőt úgy, hogy azon az összes betű és azok inverze felváltva 
szerepeljen! 


8. Írj a képernyőre csupa kisbetűt! 


9. Fejtsd meg az itt látható titkosírást a számítógép segítségével! 


—él b BETXTTTT b 9 5- TALLTA 16 LT TREE 7—066-1 IT 
SZENT b GOTT TS LT Tét LII 
szk d zt s E AZT d 


10. Írd ki a képernyőre: Magyarország fővárosa Budapest! 


11. Írd tele a képernyőt a neveddel úgy, hogy a kis- és nagybetűket értelem- 
szerűen használod! 


12. Rajzolj az üres képernyőre különböző ábrákat! Pl. díszítő sorokat, házat, 
ajtót stb. 


1.2 Játékok 


13. Amőba: Rajzolj körül egy tetszőleges mezőt a képernyőn! Válassz két eltérő 
jelet (karaktert) a billentyűzetről! Már játszhattok is! 


14. Malom: -4- és - jelekkel malomtáblát rajzolhatsz! Két különböző jel (ka- 
rakter) felhasználásával már játszhattok is. Ügyelj arra, hogy miután ellép- 
tél egy mezőről, annak helyét újra kell rajzolni! 


15. Ki húzza az utolsót? 
Rajzolj a képernyőre 100 tetszőleges karaktert! Társaddal felváltva 1-3 jelet 
törölhettek el. Az nyer, akié az utolsó húzás. 


2. SZÁMOK ÉS MŰVELETEK 
2.1 Példák 


16. Próbáld ki, mit tapasztalsz! 
a) 3-8 
b) PRINT 373-8 
c) £3--8 


17. 


18. 


19. 


20. 


21. 


22. 


Próbáld ki, és válaszolj a kérdésekre! 

a/1. PRINT (31--2)$5 a/2. PRINT 31--2$5 
b/1. PRINT 2§(3--5) b/2. PRINT 2£3--5 
c/1. PRINT (2--4)--6 c/2. PRINT 2--(4--6) 
d/1. PRINT (35) £2 d/2. PRINT 3$(5:2) 


Indokold meg: 


1. Miért más az eredmény a/1.-a/2. 
b/1.-b/2. esetben? 
2. Miért azonos az eredmény c/1.-—c/2. 
d/1.—d/2. esetben? 
3. Milyen sorrendben végzi a gép a műveleteket az egyes példákban? 


Milyen sorrendben végeznéd a műveleteket? 
a) (3-3-2)$15-—8/9 b) 3 1 2-3-(54-61-9):$12-8 


Végeztesd el a géppel a következő műveleteket! 

a) 9—-(6-1-5)§4 b) (2--3)§(4--7) c) (92-7-14)/11 
d) 3-5$8--3 e) 2—5/47-7 f) 2 1 2—7/6 
Mi lehet a műveletvégzés sorrendje az egyes esetekben? 


Számítsd ki a géppel! 

a) Mekkora annak a téglalapnak a kerülete és a területe, melynek oldalai 
11 em és 4,9 cm? 

b) Mekkora annak a derékszögű háromszögnek a kerülete és a területe, 
melynek oldalai 3 cm, 4 cm, 5 cm? 

c) Mekkora annak a körnek a kerülete és a területe, melynek sugara 124 
cm? Használd a z billentyűt! 


Írass szöveget a géppel! 

Próbáld ki, mit tapasztalsz! 

a) PRINT "BARÁT" b) PRINT "FÜLE" c) PRINT "BARÁT", "FÜLE" d) PRINT 
"BARÁT" "FÜLE" 


Próbáld ki, hogy maximum hány karaktert írhatsz egy PRINT utasítás után! 


2.2 A változók 


23. 


24. 


25. 


26. 


27. 


Legyen A— 123, B—2,9. Írasd ki "A"-t, A-t, "B"-t, B-t! 
Legyen A9/9—22, B9/9—7. Írasd ki "A9/g"-t, A9/o-t, "B9/9"-t, B9/o-t! 


Legyen A$—"BASIC". Írasd ki "A$"-t, A$-t! 


Legyen AV/9— A. Mekkora A9/9 értéke, ha 

a) A— 45 b) A—2,3 c) A——2 d) A——5,4? 
Legyen A—8,5, B—7. írasd ki: 

a) A7-B b) A-B c) AFB d) A/B e) AtB 
f) A;B g) AB 


28. 


29. 


30. 


Milyen típusú változókat célszerű használni a következő feladatok megol- 

dásánál? 

a) Tetszőleges szövegrészek kiíratására. 

b) Tetszőleges szövegek és a tízes szorzótábla elemeinek kiíratására. 

c) Tetszőleges szám 709/9-ának kiszámítására. 

d) Tetszőleges oldalhosszúságú sokszög kerületének és területének kiszá- 
mítására. 

e) Egész mérőszámú sugár esetén kör kerületének és területének kiszámí- 
tására. 


Legyen egy háromszög alapja A, magassága M. 

a) Adj tetszőleges értéket A-nak és M-nek. Legyen X—(A:FM)/2. Írasd ki 
X-et! Milyen adatot számoltál ki? 

b) [gy jelenjen meg az eredmény: T— . . . CM 1 2! 


Legyen A$—"ALMA", B$— "KÖRTE", A— 3, B—2. 

Írasd ki a változók segítségével: 3 ALMA 2 KÖRTE 

a) egymás alá b) egymás mellé zónázva 
c) egymás mellé tömörítve 


3. A PROGRAMOZÁS 


3.1 A PRINT utasítás 


31. 


32. 


33. 


35. 


36. 


37. 


Írj programot, amely letörli a képernyőt és a következőket jeleníti meg: 
BUDA PEST 

BUDAPEST 

BUDA PEST 

BUDAPEST 

Használj azonosítókat! 


Írj programot, amely a 60. és 15,5 számokkal elvégzi a négy alapműveletet. 
Az eredményeket írasd ki! 


Bővítsd úgy a programot, hogy a gép az eredmények elé írja oda azt is, 
hogy éppen mit számol! 
Pl.: AZ OSSZEG—75.5. 


Bővítsd úgy az előző programot, hogy a gép a műveletvégzés szempont- 
jából azonos erősségű műveleteket egymás mellé zónázva írja ki! 


Írj programot, amely az üres képernyő közepére kiírja: COMMODORE 161 
Használd ki a kurzormozgatás adta lehetőségeket! 


Írasd ki kurzormozgatás segítségével az üres képernyőre : 
a) ALMA b) ALMA c) ALMA 
ALMA ALMA ALMA 
ALMA ALMA ALMA 
Oldd meg az előző feladatot PRINT TAB(X) parancs segítségével! 
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38. Írj programot, amely a -k jel segítségével házat rajzol! (Hasonló módszerrel 
más. ábrákat is készíthetsz!) 


39. Írj programot, amely a hármas szorzótábla első három elemét tábiázatba 
foglalja! 


ilyen fejlécet alikalmazz: 
A HÁRMOS SZORZÓTÁBLA ELEMEI 


SORSZÁM SZORZAT 


40. Írj programot, amely két díszítősor közé a képernyő közepére írja: BASIC! 


3.2 A változók cseréje 


41. Legyen A és B tetszőleges szám. Cseréid fel A és B értékét a memóriában! 
Írasd ki a kezdeti és a végállapotot! 


42. Elemezd, majd ellenőrzésként futtasd le! 
Mit tapasztalsz? Magyarázd! 


a) b) 
Az7 19 5-7 
R 29 B-m 
B za B-6 
Cz 48 €-RárE 
BR 7 ad PRINT € 


43. Elemezd a következő programokat! Mekkora C értéke az egyes esetekben? 


a) b) c) d) 

1a A-ra 19 Aa-7 18 a-4 ta arg 

20 B-12 enm B-3 za B-B em B-4 
2 B-A 2A AzAtI 3a A-B 38 B-B-/2 
49 C-B-A 48 B-A 48 A-A13 48 A-B-8 
30 PRINT C nd €-864rB sk B-A An R-BHB-i1i 
Z0 PRINT C — eg C-AHB ef C5-A-B 

TA PRINT € TA PRINT C 


44. Legyen A—3, B—4, C—5. Cseréld fel a memóriában A, B, C változók érté- 
két az ábra szerint! 


A SB 
Írasd ki a kezdeti és a végállapotot! aa 7 
C 


45. Egy szekrényben ruhaneműk vannak. Az első fiókban zokni, a másodikban 
kesztyű, a harmadikban zsebkendő van. Cseréld fel a fiókok tartalmát, és 


írasd ki a kezdeti és a végállapotot! 1. 2. 
98 fá 


3. 


3.3 Az INPUT utasítás 


46. 


47. 


48. 


49. 


50. 


51. 


52. 


53. 


54. 


55. 


56. 


57. 


59. 


Írj programot, amely két tetszőlegesen begépelt számot kiír a képernyőre! 
a) Azonos sorrendben zónázva 

b) Azonos sorrendben tömörítve 

c) Azonos sorrendben egymás alá! 


Írj programot, amely két tetszőleges szám összegét kiszámítja és kiírja az 
eredményt! 


Írj programot, amely kiírja egy tetszőlegesen begépelt szám négyzetét! 


Írj programot, amelv két nullától különböző tetszőleges szám hányadosát 
kiszámítja, és a képernyőn így jeleníti meg: 


AZ OSZTANDOG- ... 
AZ OSZTO— ... 
A HANYADOSZ ... 


Írj programot, amely két nullától különböző tetszőleges számmal elvégzi a 
négy alapműveletet, és az eredmények elé azt is kiírja, hogy mit számolt! 


Írj programot, amely kiszámítja két tetszőleges szám számtani közepét (át- 
lagát). Írd meg a programot úgy, hogy az minden használó számára érthető 
legyen! 


Írj programot, amely tetszőleges téglalap kerületét és területét kiszámítja, 
a cm-ben megadott oldalak segítségével! 


Bővítsd úgy a programot, hogy az minden használó számára érthető legyen! 
Az eredmények után írja ki a gép a megfelelő mértékegységet is! 


Készíts programot, amely a sugár és a zzz billentyű segítségével kiszámítja 
tetszőleges méretű kör kerületét és területét! 


Írj programot, amely kiszámítja az Y—3$X--4 függvény értékét tetszőleges 
X helyen! 


Írj programot, amely kiszámítja az Y——1/5$X--1 függwmény értékét tetsző- 
leges X helyen! 


Írj programot, amely tetszőlegesen meghatározott első fokú függvény értékét 
kiszámítja tetszőleges X helyen! 


Írj programot, amely kiszámítja tetszőleges szám tetszőleges százalékát! 
Ismert feladat: Három pók három nap alatt három hálót sző. Két pók két 


nap alatt hány hálót sző? Írj programot, amely tetszőleges számú pók és 
tetszőleges számú nap esetén is megadja a megfelelő választ! 
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60. 


61. 


62. 


63. 


64. 


65. 


Egy molylepke hernyója egy nap alatt tíz könyvlapon, ill. egy borítón tudja 
átrágni magát. 

Egy könyvespolc ugyanazon sorában azonos oldalszámú, pl. 190 oldalas 
könyvek vannak. Írj prognamot, amely a könyvek számának megadásával 
meghatározza az átrágásukhoz szükséges időt! 


Készíts szövetárazó programot! 
Az egységár és a mennyiség alapján adja meg a gép egy vég szövet árát! 


Írj programot, amely az órában, percben, másodpercben megadott időtar- 
tamot másodpercben írja ki! 


Készíts mértékváltó programot! 
A gép a méterben megadott hosszúságot dm, cm, mm, km-re váltsa át! 


Számkitaláló játék. 

Gondolj egy számot! Vegyél el belőle 28-at, szorozd meg 8-cal és adj hozzá 
13-at! Az így kapott eredményt gépeld be, és a gép megmondja, mire gon- 
doltál! Írj programot, amely ezt a játékot játssza! 


Lakcímjegyzék. 
Kérje a gép három barátod nevét és lakcírnét, majd táblázatba rendezve 
írja ki azokat! 


3.4 Néhány gyakori függvény 


Az egészrész függvény INT(X) 


66. 


67. 


68. 


69. 


70. 


71. 


Írj programot, amely megadja tetszőleges szám egészrészét! 


Készíts programot, amely kiírja tetszőleges szám egészekre kerekített érté- 
két! 


Egy dolgozat értékelésénél a következő ponthatárok vannak : 

0- 4 1 

5-9 2 

10-14 3 

15—192 4 

20-24 5 

A tanuló nevének és pontszámának begépelése után írja ki a gép, hogy 
a tanuló hányas dolgozatot írt! 


Készíts címletező programot! 
Adja meg a gép, hogy 16 Ft-ot hogyan lehet a legkevesebb pénzdarabbal 
kifizetni! 


Írj programot, amely a 11-es tízes számrendszerbeli számot hármas szám- 
rendszerbeli számmá váltja át! 


Írj programot, amely egy tanuló nevének és életkorának begépelése után 
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kiírja, hogy a tanuló hányadik osztályos! (Feltételezzük, hogy a gyerek ál- 
talános iskolás és nem bukott, nern évvesztes!) 


A négyzetgyök függvény SGR(X) 


dés 


73. 


Írj programot, amely kiszámítja tetszőleges szám négyzetgyökét! 


Számoltasd ki a géppel a derékszögű háromszög két befogójámak ismere- 
tében az átfogó hosszát, a háromszög kerületét és területét! 


A véletlenszámot előállító (generáló) függvény RND(X) 


74. 


75. 


76. 


Írass ki a monitorra öt darab 1—15 közötti egész véletlenszámot! 
Írass ki a monitorra öt darab 32-—100 közötti egész véletlenszámot! 


Lottó! Adjon a gép öt darab 1-90 közötti egész vétlenszámot! Te tippel- 
hetsz. Játszhatjátok többen is. Az nyer, akinek több találata van. 


77. Kockajáték! A gép 1-6 között egész véletlenszámot ír ki. Az első három 


dobás eredménye a tiéd, a másik három a partneredé. Az inyer, akinek 
több pontja van. 


3.5 Az ÍF...THEN és a GOTO kapcsolata 


78. 


79. 


80. 


81. 


82. 


83. 


85. 


86. 


Írj programot, amely egy tetszőleges számról eldönti, hogy pozitív-e vagy 
nem! 


Döntse el a gép két nullától különböző számról, hogy azok azonos elő- 
jelűek-e! 


Készíts programot, amely meghatározza egy tetszőleges szám előjelét! 
Írj programot, amely megadja a begépelt szám abszolútértékét! 


Írj programot, amely két emberről a nevük és a testmagasságuk alapján 
eldönti, hogy-ki a magasabb! 


Írd át a programot úgy, hogy az akkor is jól működjön, ha a két ember 
egyforma magas! 


Írj programot, amely megadja egy begépelt szám egészekre kerekített ér- 
tékét IF . . . THEN és GOTO segítségével! 


Írj programrészletet, amely lehetővé teszi, hogy csak te tudd futtatni a prog- 
ramodat! 


Számítsa ki a gép két tetszőleges pozitív szám összegét! Rossz adat esetén 
jelezzen és kérjen új értékeket a gép! 
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87. Írja ki a gép két begépelt szám hányadosáti Védd ki a hibás adatokat! 


88. Írj programot, amely kiszámítja az Y——2$X--3 függvény értékét nem nulla 
X-re. Rossz adat esetén kérjen új számot! 


89. Legyen A és B tetszőleges szám. Állítsd őket növekvő serrendbe! 
90. Írj programot, amely két begépelt nevet névsor szerint ír ki! 


91. Állíttass a géppel három begépelt számot növekvő sorrendbe! Írja ki a 
rendezés előtti és utáni állapotot is! 


92. Készítsen a gép névsort három tetszőleges név alapján! 


93. Készíts programot, amely az oldalak mérőszámának begépelése után el- 
dönti, hogy a háromszög derékszögű-e! 


94. Biztos veled is előfordult már, hogy hiába próbálkoztál egy háromszög meg- 
szerkesztésével, mert kiderült, hogy az adott szakaszokból nem is lehet 
háromszöget szerkeszteni. Írj programot, amely az oldalak mérőszámának 
begépelésével eldönti, hogy a szakaszokból megszerkeszthető-e a három- 
szög! 


95. Írj programot, amely elvégzi a háromszögek oldalai szerinti osztályozást! 


96. Számkitaláló! 
Gondoltam egy számot. Megszoroztam 25-tel, majd elvettem belőle 9-et. Az 
eredményt megszoroztam 2-vel, és hozzáadtam 17-et. Az erédmény... Mi. 
a gondolt szám? 
Írd meg a játék programját! A gép a megoldásokat értékelje, rossz válasz 
esetén adja meg a jó megoldást! 


97. Írj programot, amely két adatból tetszés szerint kiszámítja vagy az alapot, 
vagy a százaléklábat, vagy a százalékértéket! 


98. Írj programot, amely két adatból tetszés szerint kiszámítja a nyomást, vagy 
a nyomóerőt, vagy a nyomott felületet! 


99. Írj programot, amely két adatból tetszés szerint kiszámítja az ellenállást, 
vagy a feszültséget, vagy az áramerősséget! 


3.6 A ciklus (IF . . . THEN alkalmazásával) 


100. Írj programrészletet, amely lehetővé teszi, hogy a prognam végén a gép ne 
írja ki a READY-t! 


101. Számoljon a gép, és a kapott értékeket írja kii 
a) 1-30 egyesével c) 3-9 0,5-del 
b) 20-40 kettesével d) 10-200 tízesével 
e) 50-20 egyesével 
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102. 


103. 


104. 


105. 


106. 


107. 


108. 


109. 


110. 


111. 


Írasd ki a géppel az ALMA szót ilyen formában: 


a) ALMA b) ALMA c) ALMA d) ALMA 
ÁLMA ALMA ALMA ALMA 
ALMA ALMA ALMA ALMA 


Írj programot, amely kiszámítja az első száz természetes szám összegét 

(Gauss feladata)! 

a) Írd át úgy a feladatot, hogy az írja ki a részletösszegeket is! 

b) Változtasd meg úgy a feladatot, hogy csaik azt a részletösszeget írja ki, 
amit előzőleg begépeltünk! 


Írj programot, amely táblázatba foglalja az első 20 természetes számot és 
azok négyzetgyökét! 


Írj programot, amely elkészíti tetszőleges egész szám első tíz hatványának 
táblázatát! 

Ha pénzünket takarékba tesszük, az évente kamatozik, átlag 39/9-ot. Írj prog- 
ramot, amely megadja az évek számát és a betett összeg alapján a ka- 


mattal együtt kivehető összeget! 


Egy dolgozat ponthatárai : 


0- 4 1 
5-9 2 
10-14 3 
15-19 4 
20-24 5 


Írj programot, amely a tanuló neve és pontszámai alapján megállapítja: XY 
érdemjegyét! 


Írd át úgy az előző programot, hogy az annyiszor fusson, amennyit előre 
meghatározunk, és számítsa ki az osztály átlagát is! 


irj programot, amely táblázatba gyűjti az előre meghatározott területértékig 
az összes egész számmal megadható oldalhosszúságú négyzet oldalának 
mérőszámát, kerületét és területét! 


Bővítsd úgy az előző programot, hogy az tetszőlegesen sokszor fusson! 
Egy lombikban egysejtűek szaporodnak. Az első percben egy darab van a 
lombikban, de minden percben ketté osztódik minden egysejtű. Írj progra- 


mot, amely akárhányadik percben megadja a lombikban levő egysejtűek 
számát! A program tetszőlegesen sokszor fusson! 
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A táptalaj kimerülésével az előbbi egysejtűek szaporodása is lassul, ugyanis 


minden ötödik perc végén elpusztul az államány fele. Ínasd ki táblázato- 


san egy óra időtartam alatt percenként hogyan alakul az egysejtűek száma! 
Ugy írasd ki az értékeket, hogy azok olvasható gyorsasággal kövessék egy- 
mást! 


3.7 A tömb 


113. 


114. 


115. 


116. 


117. 


118. 


119. 


120. 


121. 


Írj programot, amely kiszámítja az első 30 pozitív szám összegét! Gyűjtsd 
össze a részletösszegeket is, és írasd ki őket! 


.a) Módosítsd úgy a feladatot, hogy a gép csak minden második részlet- 


összeget írjon ki! 

b) Módosítsd úgy a programot, hogy a gép csak minden 1., 3. stb. számú 
részletösszeget írjon ki! 

c) Módosítsd úgy az alapfeladatot, hogy az tetszőleges számú részletösz- 
szeget írjon ki! 


Írj olyan programot, amely elhelyezi az első 100 pozitív szám négyzetét egy 
tömbben! Ezek közül bánmely szám négyzetét kiírathassuk! Fusson tetsző- 
legesen sokszor a program! 


Egy kiskereskedő 20 féle zöldséget árul. Írj programot, amely a zöldség neve 
és mennyisége alapján elkészíti a napi leltárt! 


Az előbbi feladatban szereplő kereskedő a hét minden napján folyamato- 
san rögzíti az adatokat. Készíts programot, amely megadja az egész heti 
leltárt napi bontásban! 


Írass ki a géppel 100 darab —33 és 33 közötti számot! Írasd ki ezeket elő- 
jelük szerint csoportosítva is! 


Írj programot, amely pénzfeldobást szimulál! Írasd iki 100 dobás eredmé- 
nyét (fej, írás) olvasható gyorsasággal! Írasd ki azt is, hogy 100 dobásból 
összesen hány volt írás, hány volt fej! 


Pénzdobáló játék. 

A gép hatszor dob. Ebből az első három a tied, a második három a gépé. 
Az írás 1, a fej 2 pontot ér. Írja ki a gép a dobásokat olvasható gyorsaság- 
gal, azt, hogy kinek hány pontja van és azt is, hogy ki nyert! Fusson tet- 
szőlegesen sokszor a program ! 


Anna almát, Kati körtét, Szilvi szilvát hozott uzsonnára. Mivel egyik lánynak 
sem az volt a kedvence, amit hozott, hát elcserélték egymás között. De 
még így sem volt az igazi, ezért még egyszer továbbadták a náluk levő gyü- 
mölcsöt. Írj programot, amely tetszőleges számú csere után megadja, hogy 
kinél milyen gyümölcs van éppen! 


Írj programot, amely meghatározza tetszőleges szám összes osztóját! 


Tis] 


3.8 FOR...TO...STEP és NEXT ciklusutasítások 


122. 


123. 


124. 


125. 


126. 


127. 


128. 


129. 


Készíts programot, amely kiírja az egész számokat 1-től 100-ig! 

a) Változtasd meg úgy a programot, hogy az minden második számot írjon 
csak ki! 

b) Írd át úgy a programot, hogy az az 1., 3., 5. ... számokat írja csak ki! 

c) Módosítsd a programot, hogy az a számokat most 100-tól 1-ig írja kil 


Írj pragramot, amely kiszámítja az első harminc pozitív egész szám szor- 

zatát! 

a) Módosítsd az alapprogramot úgy, hogy az a részletszorzatokat is kiírja! 

b) Írjon ki a gép minden második részletszorzatot! 

c) Írjon ki a gép minden 1., 3. . . . részletszorzatot! 

d) Változtasd meg úgy a programot, hogy a használó akárhányadik résziet- 
szorzatot kiírathassa a géppel! 


Írj programot, amely telerajzolia a képernyőt csillagokkal! 


Írj programot, amely úgy rajzolja tele a képernyőt csillagokkal, hogy min- 
den csillag után üres helyet hagy! 


Írass ki 100 darab egy és száz közötti egész számot és a véletlenszámok 
átlagát! Futtasd többször a programot! Mit tapasztalsz? 


Szimuláltass a géppel kockadobálást! 200 dobás után írasd ki azt is, hogy 
melyik szám hányszor szerepelt! Számíttasd ki a dobások átlagát is! Futtasd 
többször a progromozi Mit tapasztalsz? 


Írj TORPEDÓ játékot! 

játékszabály: A gép egy 10-szer 10-es négyzetben eldug egy darab egy 
karakter nagyságú hajót. A hajó egy helyben áll. A hajó helyére koordiná- 
ták begépelésével lehet tippelni. A gép számolja a tippek számát, és meg- 
jegyzi a tippeket. Találat után kiírja a tippek számát és a lövések koordi- 
nátóit, hogy a játékos ellenőrizni tudja magát! 


Készíts LOTTÓ játékot! 

Játékszabály: A gép 1 és 90 közötti egész számokat generál. Ez az öt darab 
szám a nyerő. A játékos begépel szintén öt darab számot. Ahány egyező 
szám van a két számsor között, annyi a találat. 


Írj programot, amely egy tetszőleges tízes számrendszenbeli számot átír ket- 
tes számrendszerbeli számmá ! 


Általánosítsuk az előző feladatot. Írj olyan programot, amely egy tetszőleges 
tízes számrendszerbeli számot átír tetszőleges számrendszerbeli számmá! 


Írj programot, amely átír egy tetszőleges számrendszerbeli számot tízes 
számrendszerbeli számmá! 


Készíts olyan programot, amely akárhány darab számot növekvő sorrendbe 
rendez! 


134. 


135. 


136. 


Készíts olyan programot, amely akárhány nevet névsorba rendez! 


A könyvtárakban a cédulák vagy az írók neve, vagy a könyvcímek alapján 
rendezettek. Írj olyan programot, amely lehetővé teszi, hogy az író neve 
alapján kérjük az általa írt könyvet, ill. a könyv címe alapján az íróját. 
Természetesen a program csak az általad nyilvántartott könyvek alapján 
működik majd. 


Az ismerősök telefonszámát és címét általában kis noteszben szokták rög- 
zíteni. 

Készíts olyan programot, amely a rögzített adatok alapján lehetővé teszi, 
hogy a név alapján kérjük a lakáscímet és a telefonszámot, a telefonszám 
alapján a nevet és a címet, a cím alapján a nevet és a telefonszámot. Fel- 
tételezzük, hogy csak egy név, egy telefonszám és egy lakcím tartozik össze; 


3.9 READ, DATA, RESTORE 


137. 


138. 


139. 


140. 


141. 


142. 


143. 


Írj programot, amely az első húsz tenmészetes számot DATA-ban tárolja! 

a) Olvasd be ebből az első tíz számot, majd írasd ki azokat! 

b) Tölts fel egy 30 elemű tömböt ezekből az értékekből! 

c) Tölts fel egy 15 elemű tömböt ezekből az értékekből úgy, hogy az első 
öt szám háromszor szerepeljen benne! 


Írj programot, amely bármely hónapról megmondja, hogy hány napos. A 
szökőévet nem vesszük figyelembe! 


Az osztályokban félévenként értékelni szokták a tanulók eredményeit. A 
tanulmányi verseny értékeléséhez szükség van a tanulók tanulmányi átla- 
gára. Írj programot, amely kéri a tanuló félévi jegyeit tantárgyanként, és 
kiszámítja a tanulmányi átlagot! 


Írj programot, cmely megállapítja, hogy egy adott pénzösszeget milyen cím- 
letű pénzekből a legcélszerűbb kifizetni! 


Feladatként már az előzőekben is szerepelt egy telefonregiszter készítése. 
Hátránya volt, hogy a begépelt adatok a gép kikapcsolásával elvesztek. Írd 
meg úgy a telefonregisztert, hogy az adatokat DATÁA-ban tárolva, onnan 
kiolvasva használjuk! 


Írd át úgy a , Könyvkatalógus" programot, hogy az adatokat itt is DATA-ban 
tárold! 


Ha a feladatgyűjternényben szereplő feladatakat még kidolgoztad, megle- 
hetősen sok programmai rendelkezel már ahhoz, hogy elkészítsd azok ka- 
talógusát. Írj programot, amely rögzíti, hogy az adott program melyik. ka- 
zetta hányadik fordulatánál található. Tedd lehetővé a kazetta neve, ill. 
a program címe szerinti lekérdezést is! 


WZ 


3.10 


144. 


145. 


146. 


147. 


146. 


149. 


150. 


3.12 


151. 


152. 
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Készíts olyan programrészletet, amely lehetővé teszi, hogy a program csak 
a megfelelő billentyű lenyomására induljon! 


Írj olyan programrészletet, amely lehetővé teszi, hogy a program tetszőleges 
billentyű lenyomására induljon! 


Írj programot, amely elkészíti tetszőleges számra a szorzótábla első száz ele- 
mét. Készítsd el úgy a programot, hogy a képernyő húszsoronként , lapoz- 
ható" legyen! 


Időmérés számítógéppel (TI és TI$) 


Készíts olyan programot, amely a képernyő közepén folyamatosan jelzi a 
pillanatnyi gépidőt órában, percben, másodpercben! 


Írj programot, amelynek hatására a képernyő mint stopperóra üzemel! 
Készíts programot, amelynek hatására a képernyő mint óra működik! 


A feladatgyűjtemény elején találsz egy programot, amely segít a billentyű- 
zet használatának gyakorlásában. Készíts te is billentyűgyakorló progra- 
mot, hasonló szabályokkal. A gyakorlásra szánt karaktereket DATA-ban tá- 
rolhatod. Mérje a gép a karakter megjelenése és a megfelelő billentyű le- 
ütése között eltelt időt is! 


Képernyőkezelés, grafika 


Írj programot, amely a képernyőre véletlenszerűen pontokat helyez! A prog- 
ram az I leütésére induljon és a V leütésére álljon meg! 


a) Készíts programot, amely a következő koordinátájú pontokat jeleníti meg 
a képernyőn: (40, 110), (80, 110), (140, 110), (260, 110), (300, 110), (80, 
130), (260, 130), (140, 20), (140, 60), (140, 130)! 

b) Mit ábrázolnak ezek a pontok? 

Kösd össze a megfelelőket! 


Tervezz te is hasonló ábráikat! 


Elemezd a két programot! Hogyan működnek, mi a különbség? 
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155. 


156. 


157. 


158. 


159. 


160. 


161. 


162. 


163. 


164. 


165. 


166. 


3.13 


167. 


168. 


169. 


170. 


171. 


Írj programot, amely véletlenszerűen vonalakat húz a képernyőre! 

Készíts olyan programot, amely a képernyőre összefüggő megtört vonalakat 
rajzol! A rajzolást a bal felső sarokban kezdje a gép, és a vonalat vélet- 
lenszerűen húzza! 

Rajzoli a képernyőre egy 40 egység oldalú négyzetet! 


Színezd ezt a négyzetet feketére! 


Színezd a hátteret fehérre, a papírt feketére, és ínasd tele a képernyőt piros 
csillagokkal! 


a) Rajzolj egyenlő szárú háromszöget a képernyőre! 
b) Színezd a háromszöget feketére! 


Rajzoltass a géppel egy 40 egység sugarú kört! Rajzold meg a vízszintes és 
a függőleges átmérőt is! 


Rajzolj a képernyőre öt koncentrikus kört! Rajzoid meg a közös középpontot 
is! 


a) Rajzolj a CIRCLE utasítás segítségével szabályos hatszöget! 
b) Raijzold meg a köré írható kört is! 


Rajzolj téglalapot! Húzd meg a két átlóját! 
Rajzolj a képernyőre egy térbeli kockát! 


Rajzold meg a képernyőre lakásotok alaprajzát! Írd rá, hogy melyik helyiség 
milyen célt szolgál! 


Zene 
Szólaltasd meg a normál A hangot 2 másodperces időtartamban ! 


Írj programot, amely hatására a gép 1—i másodpercig megszólaltatja az al- 
só és a felső C hangot! A program a V billentyű lenyomásával álljon meg! 


Szólaltasd meg a számítógép teljes hangterjedelmét úgy, hogy minden hang 
fél-fél másodpecig szóljon! 


Szólaltassa meg az egyik hanggenerátor a normál A hangot! A második 
hanggenerátor szóljon egy oktávval feljebb és másodpercenként kétszer kap- 
csoljon ki és bel 


Rajzoljon a gép véletlenszerűen vízszintes és függőleges vonalakat a képer- 


nyőre! Ha a gép vízszintes vonalat húz, adjon a gép magas, ha függőleges 
vonalat húz, akkor mély hangot! 
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172. 


173. 


3.14 


174. 


175. 


176. 


177. 


178. 


179. 


180. 


181. 


182. 


183. 


184. 


185. 


186. 


187. 


188. 


3.15 


189. 


Írj olyan programot, amelynek hatására a számítógép mint elektromos or- 
gona használható! 


Írj programot, amelynek hatására a gép eljátssza a , Pál, Kata, Péter jó reg- 
gelt" című dalt! 


Karakterfüzér függvények 
Írass ki a géppel 100 betűből álló véletlenszerű karaktersort! 
Írasd ki a géppel a következő szöveget: 
nA tudás gyökere keserű, gyümölcse édes" 
(Apáczai) 
Jelenítsd meg a képernyőn a gép teljes karakterkészletét! 
Írj programot, amely elkészíti egy tetszőleges szöveg karakterkódjáti 
Írj programot, amely a begépelt név alapján megadja az illető monogramját! 
Írja ki a gép egy begépelt szóról, hogy hány betűt tartalmaz! 


Készítsd programot, amely megállapítja egy adott szövegről, hogy hány ka- 
raktert tartalmaz! 


Írj programot, amely a begépelt igéről megállapítja, hogy ikes ige-e! 
Írj programot, amely kiírja, hogy a begépelt szó hány , e" betűt tartalmaz! 


Írj programot, amely megállapítja, hogy a begépelt mondat hány ly-t tartal- 
maz! 


Készíts programot, amely egy begépelt mondatoi betűnként lassítva ír ki! 


Írj programot, amely megállapítja, hogy egy véletlenszerűen megadott betű- 
halmazban hányszor szerepel egy adott szó! 


Javítsd ki úgy a monogram-készítő programot, hogy az akkor is helyesen ké- 
szítse el a monogramot, ha a név kettős betűvel kezdődik! 


Írj prognamot, amely sztringváltozóban helyezi el az első húsz természetes 
számot! 


Rajzoltass a géppel egy borítékot! 
Írd meg úgy a programot, hogy a címzés tetszés szerinti legyen! 
Logikai műveletek (AND, OR, NOT) és ON . . . GOTO 


ke 


Írass ki 50 db 20 és 200 közötti egész számot! 
a) Írj programot, amely ezek közül kiválasztja a párosokat! 
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190. 


191. 


197. 


198. 


199. 


b? Írj programot, amely kiválasztja a 110-nél nagyobbakat! 

c) Írj programot, amely kiválasztja a páratlan és öttel osztható számokat! 

d) Írj prograrnot, amely kiválasztja a 80-nál nagyobbakat vagy a néggyel 
oszthatókat! 

e) Írj prograrnot, amely kiválasztja a 100-nál nagyobb és 150-nél nem na- 
gyobb számokat! 

f) Írj prograrnot, amely k 
hogy nagyobbak 90-né 


választja azokat a számokat, amelyekre nem igaz, 


i 
! és páratlanok! 


Fűzd össze egy programmá az 189. feladat programjait! 


[Írj programot, amely összegyűjti, hogy az őrsöd tagjai milyen szakkörökre 

járnoti! Egy tanuló maximum három szakkörre járhat. 

a) Írj programot, amely megnevezi azokat a pajtásokat, akikből célszerű 
összeállítani egy sportversenyre induló csapatot! 

bd Írj programot, amely megnevezi a KRESZ vetélkedőn indítható csapatta- 
gokat! 

c) Íri programot, amely megnevezi a népdaléneklési versenyen indítható paj- 
tásokat! 

d) Írj programot, amely javaslatot tesz arra, kiket érdemes indítani egy 
egyéni művészeti vetélkedőn! 

e) Írj programot, amely kijelöli azokat a pajtásokat, akik indíthatók egy ter- 
mészetitudományos csapatversenyen! 

§) Íri progremot, amely megnevezi a matematika-versenyen indítható pajtá- 
sokat! 


Fűzd össze egy programmé az előző feladat programjait! 


; A sornyomtató használata 


Nyomtass ki tetszőleges programot sornyomtatón! 
Nyomtcss tele 5 sort A batűkkel! 


Nyomtass felváltva -- és £ sorokat egymás után négyszer úgy, hogy a kü- 
lönböző sorokat üres sorok válasszák el! 


Oidd meg úgy az előző feladatot, hogy a gép dupla szélességű karakter 
módban működjön! 


Írasd ki egymás alá hatszor: COMMODORE 16! Minden páratlan sor nor- 
mál, minden páros sor dupla szélességű karakterekkel íródjon! 


Írasd ki sornyomtatóra a gép teljes karakterkészletét és a hozzájuk tartozó 
CHR kódokat! 
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SZOüFZ rag a SZOÜOFRZÖT 

1 a 

z 18 
3 27 
4 38 
S 45 
E 54 
fi Ez 
a 72 
a 31 
18 ga 
ti ag 
iz iaz 
13 iú7 
14 (86 
19 135 
18 144 
L7 153 
18 152 
19 171 
zm ism 


200. Írj programot, amely sornyomtatón megjeleníti az őrsöd tagjainak nevét, cí- 
mét, telefonszámát a következő módon: 


FCI KE riTk I tn FS Tan. Tr Iras KK vs TF 


F-IE té La es EITF1 TEL... SZ Sir 
BP. WV. 3re458 
BF. 25143 
BP. § zrüzzü 


201. Készíts pénztárgépet, amely a begépelt pénzösszegeket és a végösszeget 
sornyomtatón, a tizedespontra illesztve jeleníti meg! 


3.17 A kazettás egység 


202. Írj programot, amely 100 darab egy és kilencven közé eső véletlenszámot 
kazettán rögzít! 
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203. 


204. 


205. 


206. 


207. 


208. 


3.18 


209. 


éb úg l-t 
sa 


ír 


1 


17 


5] 


min a 


ka ll ka Ill kat IlRLKo 


a om en b fú Mű 
ís 


EZ 


Írj programot, amely az előző feladatban elkészített file-ból tetszőleges 
(XCx100) elemet olvas be a memóriába, és jelenít meg a képernyőn! 


Írj programot, amely az őrsöd névsorát kazettán tárolja! Az őrs általában 
háromnál több, de tizenötnél kevesebb tagot számlál. 


Kétszíts programot, amely az előző feladatban elkészített file elemeit vissza- 
olvassa a memóriába, és a kapott adatokat képernyőn jeleníti meg! 


Készíts programot, amely az osztályod tanulóinak nevét és tanulmányi átla- 
gát magnószalagon rögzíti! 


Készítsd el azt a programot, amely az előző program által rögzített adatokat 
beolvassa a memóriába, és azokat képernyőn is megjeleníti! 


A 206. feladatban létrehozott file elemeiben gyakran év közben, de féléven- 
ként biztosan beáll változás. Írj olyan programot, amely lehetővé teszi a file 
folyamatos gondozását, hogy az adatok naprakész információval szolgálja- 
nak! Előforduló változások: új tanuló érkezik, tanuló távozik, félévkor, ill. 
évvégén a tanulmányi átlag változik! 


Mit csinál a gép? Elemezd a programokat! 
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211. Mitírki a gép? 
a) b) 


mm ma 
"1 
í1) 
(hö 


Mm a s ín mé om 

mm a Im 3 

CI ap (1 

non u 

ts) 1 

73 

m 
ÍM 
mia 


TI 
o ln, ER) ENE 5) 
5 ma 


ag 
hol 


PRINT A7B:€ 


-4 
[49 


c) d) 


D69 ER 1 4 SSL 
[dos Art ! 
m im ID 
noni 
mm -n 


ünn 
ma 

ú 4) WD CI 
u! 

ma 7) IN PI 


3 9 


új Mm 


mm 
! 
19) 


1 
im Dr 
[491 
mp 
u 


0 ah 


Fok ok 
íg ma 
m 

Hi 


a. GT 


élj 
[43 
"TI 
7 
zZ 
d 
ei s) 
m 
3 
al 
nm 
TJ 
2) 


e) 1) 


[13 ) 
9 DD 
u" 
1 


tat 
fos Ko] 


mm 
n" 
1 


[s 


m u mm id mm 
vm 
mp 
non 
mi 
$D 
D 
nu HR úg ím 
16") 
cas JÉ 
n 
D 
1 
rm 
26. 
mm 


9 a 


a 


C€C-AtBtTÓ 
PRINT BZBFE 


E 6 
11 
E ET Ej ez 
szjlleri 
mm 


—4 


ís 


E) B 


a 
s. 
mú 
a 
e 


MJ 

mD 

gp. ál 
"1 

s (4 

184 EL) 


zü €-AxB 3 848 
38 M-AtB 4aa B-B-/A 
aa C-CxD sa A-AtB 
sa PRINT € e PRIMT 6:;B 


YE 4 ELS 
mp mm ID 
mm 
[1 1 
(a) Tu 


" 
da 


4d A-A4E 
nd B-E-C 
eü €-fxiő 
rá PRINT AFE:FC 


ND 
px 


212. 213. 


18 PRINT"4" 19 
em FOR I-i TO 47 29 
38 PRINT TABÉINETát sa 
48 MEMT I 39 
sa Haruw en aa 
za 
7a 
am 
za 
igmn 
11m 
214. 215. 
15 INMPUT AZ 1 PRINT"4" 
zó PRINT 390 FOR J-I TO 
28 PRIMT AH: 8 ked 
4Z FOR K-i TO 
4a GOTU ZA 
5-JO PRINT"a!a 
BA ME K. 
7A Hi Ja 
sz EMO 
216. 
0 PRINT"! 
B FOR I-1 TO 198 
aj ( ( "194198341942 


5 
b 
ni 
- 
Ép. 
a a) 
ci 


Mm o om a fs - 
fa 
Mm a 
A 
kú 


mun 


mz I: 
Ű Xx 
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ún 


ah 
he 


218. 


IMFUT A 
FOR I-1i1 TO 
HEINTÉET/A 


[Új 


a 


9) TU 


MH-I-H4kA 
FRIHT I.H 
MEZ;T I 

EHO 


mil. 
BNDEDRDMDIDIN 


aj 


219. 


18 IMPUT K 
em IF X-INT(XM/BÓ4B THEN PRINT"xkX":GOTO 48 
38 PRINT"Xx" 

aa END 
220. 

td IHPUT A.B 

za IF AJA AHD B-A THEN GOTO 5A 

38 PRINT!" 

4A PRINT TAB(RA): 

sa EMD 
221. 

im GET AZ 

em PRINT"! 

zAü IF AF-"xiTt OR AF-t4" THEM GOTO 58 

4a GOTO 18 

s FOR I-1 Tü 25 

Ed FOR Jz-i Tú da 

7A PRINT AF 

BO MEXT J 

ag MHEXT I 

108 EHÜü 
222 

1 
A-/Z3I)43 THEM PRIHT"ALIAA" :GOTD 


DB o íú MD e 
írd DD mm 
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223. Melyik programhoz melyik logikai áramkör tartozik, ha Z jelentése, hogy a 
kapcsolók zártak, az áram akadálytalanul áramlik? 
Programok: 


a) 

18 IMPUT AH.BE 

en IF AH-"Z" AMD BEH3-"Zt THEM PRINTTEG":GOTO 48 
329 PRINT"MEM EG 

ga EMO 

b) 

18 INPUT A£.B$ 

za IF A$-"Z"! OR B$-"Z"! THEM PRINT"EG":GOTO 49 
38 PRINT"NMENM EG 

438 END 


(a) 
—— 


Ta TMELT Fé. ES ES 
ed IF ASS Zz  ANO BSZ Z"a ÜR C$5-"zZ"7" THEN PRINT TEG" a 


Gara aa 
FRINT"MEM EG" 
EMŰ 


hez 


b íg 
íz 


a 
be 


E) 


INPUT AX,EZ 
IHFUT avszzágjt 
IF (AZZ"Z" 


THEN FRINT "EG" 


í0 TÚ 
fo 


) 
Fi 


B$-"Z2Z") AND (C$sz-!Z" OR DE-!Z!") 
: Gi 


38 FRINT"MEM EG" 

ad ENE 

e) 

18  IMPIIT AZ BE 

zű IMNMPUT Cs. ns 

z8 IF (AsZz"Z" AMD IR EG RS"Z ArHn Dszsz"g 
THEN PFEINT"EG" 

did PRIHT"IHEM EG 

at EME 


kezi 
met 


[s 


ím) MM e 
7 


OR SCE zt AD ESZ "Z" a 


hés 
ha 


u 


lk: ) 
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Logikai áramkörök: 


—e 


224. 225. 


b PRINT"44" tú PRINT" 

et FOR Izi Tü 3 ed FOR ilsi Tü § 
39 RESDNO A 39 READ AZ 

38 M-4áH JA //E-MSEá$AT 

ad PRINT A aa PRINT B 
ED NEXT I Sa NEZT I 
td BERTA 1 SZEPT a T e, 9 7. DRTA 1.3 eít.d Bart nő 

226. 227. 

1m 55-i PRINT"4g" 

Aa HE-VkttkkkikikT FOR I-i Tü S 
A Bp-" H$-ETR:E(I 

ű FOR 1-ü Tü 25 BEB$-BE3HE 

z Fük 7-A Tü zi PRINT B£ 

A PRINT LEETFCRE,SMI:BE MET I 


hk 

sz 
jú 
Ha 
aj 
a 


mem a  ű  í4 [0 


A NEXT I 

A Kzi41 

am IF Kézif THEN GOTO 48 
18 


Er 


11) 


2268. 


a 


FRIHENTAI 

TI$-"nAaN-JANAN" 

FOE.Íi-1 Tü 1580 43 MEXT I 
PRINT TI/6A 

EHiü 

PEST a 


hó 


Ír jlliho 


ül 6) MM 
2 


my 
ezé 


K$ Mi ke 


[sm sal 


pp 1 
1 


CI 


CHR$tA) THEN PRINT TIZSO:"S":GÜTO 88 


im 


21 Mn B 
DTM 3) 
1 
D 

noi 


ja 
MO -nngáagműú 


Ha] 
[a 

— 
sa 


230. 


fo) 


FETT "úg" 
FOR d5zi TO 


ma 


ng bim: 
[a 


E 


: HEAT UL 


3) 


[14 le HL 1 i 


. a 
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send 


La GR 

eg SG 

ad FO 

ja Fa 10 
ai DR 

Ed ME 

Ta, ME 

SE. EB 


pas] 


232. 233 


18 GRAPHIC 1,1 1a PRINT"(" 
28 SCNCLR zA COLOR A.1,7 
za FOR J-A TO z32űü STEP 18 38 COLOR 4,2.1 
48 FOR I-A TO eü 48 COLOR 1.,3,7 
s ORAM 1.1J,I s FOR I-i TüZ 
BO NEXT I en FOR J-i TO 4 
78 MEXT J 78 PRINT"4"; 
BA EHD 88 MEXT .J 

sa MHEXT I 

tam EMű 

234. 235. 

1ü  BRAPHIC 1,1 18 GRAPHIC 1,1 
28 SCNCLR za SCMCLR 
3m 1-a : J-a 38 FOR Iz1 TO 28 
49 DRAW 1,1I,J 48 CIRCLE 1,I,1 
5A IF 1-282 THEN GOTŰ ZA 5A MEXT I 
BO IzI6i s8 EMO 
7m JzÍi41 
sa GOTO 4a 


236. 


íg 5 4 ID 
mm ID mM IZ 


Hy 


im 
hó 


5 
[97] 
"a 


Mm D 


5) ri 


a man b id Mm 
Mm XX mMmIR 


1) 


dt Hl 


í1) 
ik 
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238. 


239. 


240. 


241. 


242. 


243. 


244. 


245. 


246. 


247. 


248. 


Néhány vegyes feladat 


Készíts programot, amely megállapítja, hogy egy adott lineáris függvénynek 
milyen a menete! 


Egy baráti társaság összejövetelt rendez. Már mindent megvásároltak, ami 
a szendvicsek elkészítéséhez szükséges volt. A maradék pénzen üdítőt kí- 
vánnak vásárolni. Írj programot, amely segít kiszámítani, hogy a rendelke- 
zésre álló összegből hány darab adott egységáru termék vásárolható! 


A gyerekek nagy részének gondot okoz a szorzótábla. Mivel a szorzótábla 
csak ismétléssel tanulható meg, és ezt sokan unalmasnak tartják, nem is 
sajátítják el megfelelő módon. Írj olyan programot, amely a tanuló által 
megadott szorzótáblát segít begyakorolni! 


Félévente az osztályok között tanulmányi versenyek értékeléséhez szükség 
van az osztály tárgyankénti tanulmányi átlagára. Írj programot, amely meg- 
könnyíti ezt a fárasztó és időigényes munkát! 


Írj programot, amely a használó által megadott számkörben segít gyako- 
rolni a négy alapműveletet! 


A hatodik osztályos matematika könyv foglalkozik már a prímek kikeresésé- 
nek egy érdekes módszerével, amelyet a feltalálója után Erathosztenész szi- 
tája néven emlegetnek. A módszerrel már dolgoztatok. Írj programot, amely 
tetszőleges számig megkeresi a prímszámokat! Vigyázz, mert az oszthatóság 
csak a természetes számok körében értelmezett! 


Készítettünk már olyan programot, amely egy tízes számrendszerbeli számot 
tetszőleges alapú számrendszerbeli számmá ír át, és megírtuk ennek a for- 
dítottját végző programot is. Készíts most olyan programot, amely tetszőle- 
ges számrendszerbeli számot tetszőleges számrendszerbeli számmá ír át! 


Írtunk már olyan programot, amely Torpedó játékot játszik. Készíts most 
olyan programot, amely megrajzolja a játékteret is, és a lövéseket a megfe- 
lelő koordinátájú négyzet beszínezésével jelzi. Ha a játékos kilőtte a hajót, 
mutassa meg a gép újra a lövéseket a megfelelő sorrendben! 


Matematika órán sok időt elvesz, amikor a valószínűségszámításos felada- 
tok során el kell végezni a kísérleteket, például száz kockadobást. Írj prog- 
ramot, amely szimulálja a dabásokat, és az egyes értékek előfordulását gra- 
fikonon, oszlopdiagrammal ábrázolja! 


A háborúban igen nagy mennyiségű kódolt üzenetet kellett megfejteni a 
kémelhárítóknak. Ennek a hatalmas adatmennyiségnek a feldolgozása sok 
gondot okozott. Ez a probléma is elősegítette a számítástechnika kialakulá- 
sát, fejlődését. Írj olyan programot, amely lehetővé teszi szövegek titkosírás- 
sá, titkosírás szöveggé való alakítását! A kódot Te választod meg! 


Nagyobb cukrászdákban már meglehetősen elterjedt a számlázógépek hasz- 
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249. 


250. 


251. 


252. 


253. 


nálata. Az étel kódiának begépelése és az asztalszám megadása után a 
géptől kérni lehet a számlát. Írj programot, amely elvégzi ennek a gépnek 
a feladatát, és ilyen formátumú számlát ad: 


HB pa Sissz TT ik. sz EG ői Té 
HALIHA sa et 
MARANCS 5.5Aa 
FUNCSTORTA 4.20 
matat 5 sa 
TÖNMIK a. a0 
OSSZESEN red ögel a 

baz" ni FSZ T FiL. Sz FF -IL. FITT E 
DOBÜzSTÖRTHA 1: 
HAEARMHCZ har gert 2) 
CITROMHTORTA 4.50 
HSSZESEN 15.28 


A különböző grafikus utasítások megadásával szép ábrák rajzolhatók a kép- 
ernyőre. Ezek azonban mind előre megtervezett ábrák. Írj olyan programot, 
amely lehetővé teszi, hogy a billentyűk segítségével tetszőleges ábrákat raj- 
zolhassunk a képernyőre! Tegyük lehetővé, hogy az elrontott részeket tö- 
rölje a használó! Vonalat balra a B; jobbra a J; felfelé az F; lefelé az L 
billentyűvel rajzolhassunk! 


Magyar órán gyakran kell egy verset vagy szövegrészt hangulata alapján 
elemezni. Egy szöveg hangulatát nagy mértékben befolyásolhatja a benne 
szereplő betűk százalékos aránya. Írj olyan programot, amely egy tetszőle- 
ges szövegben szereplő betűket ebből a szempontból vizsgálja! 


Biztosan ismeri mindenki az akasztófa" játékot. Írj olyan prognamot, amely 
az ismert játékszabályok alapján egy ötbetűs szó kitalálását várja el a já- 
tékostól! 


Már kis korotok óta foglaikoztok halmazok közötti kapcsolatokkal. Írj prog- 
ramot, amely két halmaz közt fennálló legismertebb  halmazkapcsolatot 
szemléltet! Ezek legyenek: metszet, különbség, komplementer és maga a két 
halmaz. 


Az összeadások, kivonások gyakorlására gyakran oldottatok meg bűvös- 
négyzet feladatokat. Írj oiyan programot, amely megrajzol egy háromszor 
hármas bűvösnégyzetet, megadja az egyik átló elemeit. Az eltalált további 
elemeket a gép írja a négyzet megfelelő helyére! 
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254. 


255. 


Készíts programot, amely egy tantárgy, pl. fizika egy témájának gyakorlását 
teszi lehetővé tesztkérdések alapján! A kérdéseket és a helyes válaszokat 
célszerű file-ban rögzíteni. 


Egy török szultán a börtönben 100 foglyot őriztetett. Minden cellán kétállá- 
sú zár van, amely egy fordításra nyílik, másik fordításra záródik. Mivel a ra- 
bok élelmezése sokba kerül, a szultán úgy döntött, hogy a rabok egy részét 
elengedi. Így elküldte az első szolgáját, hogy fordítson minden záron egyet; 
a másodikat, hogy fordítson minden második; a harmadikat, hogy fordítson 
minden harmadik... ; a századikat, hogy fordítson minden századik záron 
egyet. Amelyik cella ajtaja az utolsó fordítás után nyitva marad, az a fogoly 
elmehet. Írj programot, amely a mese alapján tippet kér a játékostól, hogy 
ha ő lenne a rab, melyik cellát választaná, majd a gép írja ki, hogy az ille- 
tő kiszabadulna-e vagy sem! 
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II. MEGOLDÁSOK 


1. A BILLENTYŰZET HASZNÁLATA 
1.1 Példák 


1. Minden programsor után RETURN gombot kell! lenyomni. 

2. Képernyőtörlés SHIFTt-HOME/CLEAR együttes lenyomásával történik. 

3. A beszúrás a SHIFT-4-INST/DEL lenyomásával történik. 

4. Jobbról balra törlés az INST/DEL lenyomásával történik. 

5. Balról jobbra törölni a SPACE billentyűvel lehet. 

6. Kurzonmozgató billentyűkön nyilak jelzik a megfelelő irányt. 

7. Inverz karakter a CTRL (ConTRol) gomb lenyomásával jön létre. 

8. Kisbetű a C—--SHIFT együttes lenyomásával írható. 

9. Megfejtés: Ezt a szöveget a SHIFT billentyű lenyomásával készítettem. Meg- 
fejteni a C— gomb lenyomásával lehet. 


2. SZÁMOK ÉS MŰVELETEK 
2.1 Példák 


16. a) A gép nem ír ki semmit. Hiányzik a kiíró utasítás. 
b)—-c) Megjelenik az eredmény: 11. Tehát a PRINT utasítás helyettesíthető a 
2? leütésével! 


17. Indokolás: 

1. Zárójel nélkül más a műveletvégzés sorrendje, így az eredmény is. 

2. Zárójel nélkül is ugyanaz a műveletvégzés sorrendje, így az eredmény is. 
Ezért természetesen a záróiel helyének megváltoztatása nem jelenti az 
eredmény változását. 

3. a/1t. 1. a zárójelben levő művelet 31--2 

2. az összeg szorzása 33$5 


a/2. 1. a szorzás 285 
2. az összeadás 31--10 

b/1. 1. a zárójelben levő művelet 34-5 
2. az összeg szorzása 28 

b/2. 1. a szorzás 23 
2. az összeadás 64-5 

c/1. 1. a zárójelben levő művelet 2--4 
2. az összeadás 67-ó 

c/2. 1. a zárójelben levő művelet 4--6 
2. az összeadás 23-10 

d/1. 1. a zárójelben levő művelet 3£5 


2. a szorzás 15§2 
d/2. 1. a zárójelben levő művelet 52 
2. a szorzás 3810 
(A műveletek prioritása (sorrendje, erőssége): 
1. zárójelben levő bármilyen művelet, 
2. hatványozás-gyökvonás, 
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3. szorzás-osztás, 
4. összeadás-kivonás. 
Azonos erősségű műveletek esetén balról jobbra végzi a gép a műveleteket.) 


18. a) 1. zárójelben levő összeadás 3-4-2 

2. az összeg szorzása (3-14-3)§15 vagy 
az osztás 8/9 

3. a kivonás (3-74-2)$15-8/9 

b) 1. hatványozás 312 

2. a zárójelben lévő összeadás 5-4-61-9 

3. az összeg szorzása (5-1-67-9)$12 

4. vagy az összeadás 3 1 21-(51-61-9) 12 
vagy a kivonás (5--ó1-9)$12—8. (Itt a balról jobbra szabály dönt.) 


19. a) 1. a zárójelben levő művelet 
2. a szorzás 
3. a kivonás 
b) 1., 2. a két zárójelben levő művelet balról jobbra 


3. a szorzás 
c) 1. a zárójelben levő művelet 
2. az osztás 
d) 1. a szorzás 
2. a kivonás 
3. az összeadás 
e) 1. az osztás 
2. a kivonás 
3. az összeadás 
f) 1. a hatványozás 
2. az osztás 
3. a kivonás 


20. a) PRINT (11--4.9)§2 PRINT 11§4.9 
b) PRINT 3--4--5 PRINT 3$4/2 
c) PRINT 2$12.4 zzz PRINT 12.41 287 


22. Maximum 85 karakter írható egy PRINT után az idézőjelek közé. 


2.2 A változók 


Változótípusok Jelentésük 
Valós 10-88... 10438 közé eső tetszőleges vd- 
lós szám 


Jelölése: A BC A1 B2 C3 AB CD GJ 


Egész A begépelt számból csak az egészeket 
tartja meg. Ha a szám nem egész, úgy 


azt csonkolja. 
Jelölése: A9/g A19/9 AB9/g 
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Karakterfüzér, füzér, Az így tárolt karaktereket a gép szöveg- 

sztring (angolul string) ként értelmezi. Így azokkal az összevo- 
náson kívül más művelet nem végezhető. 
Jelölése: A$ A1$ AB$ 


26. a) AV/9—45 b) A9/9—2 c) A9/9——2 d) A9JJ—-5 


28. a) Sztring típusú 
b) Sztring típusú és egész típusú 
c) Valós típusú 
d) Valós"típusú 
e) Valós típusú 


29. a) A háromszög területét 
b) PRINT "T—":X;CM 12" 


30. a) PRINT A;A$ b) PRINT A;A$, B;B$ 
PRINT B;B$ 
c) PRINT A;A$;B;B$ 


3. A PROGRAMOZÁS 
Jó, ha tudod! 


- A programozás mindig a feladat tökéletes megértésével kezdődik! 

- A programírást mindig tervezés előzi meg! 

— A hosszú, bonyolult program sok gépidőt rabol. Ezért a jó programozó 
mindig a legrövidebb, legcélszerűbb megoldásokra törekszik! 

- A programokat számozni kell. A számozást tizesével célszerű végezni. 

— Ha sorszámozási gondjaid támadtak, használd a RENUMBER 0, 10 uta- 
sítást. Ekkor a gép önállóan újra sorszámoz tíztől tízesével. 

— A programot célszerű magyarázatokkal ellátni, hogy annak működését 
könnyen áttekinthesd. Erre a REM utasítást használd! A REM után írt szöveg csak 
a programlistában jelenik meg. 

— A programot célszerű úgy írni, hogy az emberközeli legyen, azaz bárki dol- 
gozhasson vele. 

- A programot célszerű a mágneses adatrögzítők (mágneslemez, kazetta) 
mellett papíron is megőrizni. 

- Célszerű a program első sorába képernyőtörlő utasítást tenni. Sokszor za- 
varó, ha futtatás közben oda nem tartozó szövegrészek vannak a képernyőn. 

— Az elkészült programot mindig elemezd, gondolatban próbáld lefuttatni. 

Ez nagy segítség a hibakeresésben is. 
A könyvben található programok a feladatok egy lehetséges megoldását adják. 
A legtöbb feladatnak többféle megoldása is létezik. Ha az önállóan írt progra- 
mod fut, akkor is javasoljuk a mintaprogram elemzését, és a sajátoddal való 
összehasonlítását. 
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3.1 A PRINT utasítás 


Szintaxis jelentés 
Ú5 HK 
shi BELÉLET AA A PRINT után írt változó értéke jelenik 
38 PRINT Ai im 
ala FRIHT"H" 8 A PRINT után idézőjelben levő szöveg 
54 FRIHT"H£ jelenik meg 
S FEIHTSHA" 
26 PRIHTET" Képernyőtörlés, kurzor a bal felső sarok- 
€. 588 jj " ba kerül 
aa FEIHT "SRI" : új Jobbra egy egységgel 
aid FEIHT"SHI" 958 Balra egy egységgel 
198 FRKIHT"TT 50 Lefelé egy egységgel 
118 FEREIHT"H" e Felfelé egy egységgel 
126 PRIHT"g" Bal felső sarokba kerül, törlés nélkül 
128 FRIHT Egy üres sort húz 
id4 FEFIHT H;BE A és B értékét tömörítve írja ki 
158 FRIHT A.B A és B értékét zónázva írja ki 
lé8 FEIHT THEZA: B A sor X. helyére írja A értékét 


31. Vegyük észre: 
- Az első lépés a képernyő törlése. 
— Változóként két füzér (sztring) típusút kell alkalmazni. 
— Az első és a harmadik sor zónázott forma, ezért a változók között vesszőt, 
a második és a negyedik sorban a tömörített forma miatt pedig pon- 
tosvesszőt lehet alkalmazni. 


A program: 
16 ERIHIT "a REIMT A$.ES TA ERIHT A4FEX 
zü ssz-sEnina FRIMT S87ES em EM 
sa BES"PEST ERIMHT A£.BE 


32. Vegyük észre: 
— A változóknak vaiós típusúakat kell választani. 


— Vigyáznunk kell, hogy definiáló egyenlőségekről van szó, így az csak 
balról jobbra olvasva igaz. 
A program: 


av) 


ETT TT di 
2 AI OXI ra tg 
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33. Vegyük észre: 
- A PRINT utasítás után idézőjelbe tett szöveg megjelenik a képernyőn. 
— Ha a szöveg után pontosvesszőt írunk, a gép a következő kiírandót köz- 
vetlenül a szöveg után írja ki. 
A program: 


PR ázsalálbel 


0 enm út KR 0 MD 
E NVDYNMMAIWMNININDDEI 


199 PRIHT 
119 PRINT 
128 En 


34. Vegyük észre: 
- Azonos erősségű művelet: összeadás-kivonás, szorzás-osztás. 


— Az összeg, ill. a szorzat mögé írt vessző hatására a következő megjelenő 
jel ezek után zónázva jelenik meg. 
A program : 
19 PRINT" ug 
e A-n 
z9d B-15.2 
48 €-ArtE 
af 0-6-B 
EM E-BxKE 
Tü F-A-B 
8 PRINT "AZ ü5Zz5ZzZEG- íG 
38 PRINT "A KÜULÖNMBSEG—-" DN 
129 PRINT "A SZORZAT S :E 
110 FEIRHT "A HARrYAUOOZZ TF 
129 END 


35. Vegyük észre: 
- A képernyőtörléssel a kurzor a bal felső sarokba kerül. 
-— Innen jobbra 13, lefelé 12 lépés után kiínatva a szöveget, az pont a kép- 
ernyő közepére kerül. 


A program : 
18 PFRINHT?.J" 
eR PRITIT" HEBERENEERES EE EK EK ER TETETETSTETETETETSTETETE3— OT ŰDÖÜRE1E" 
az EHO 
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36. Vegyük észre: 
— A c) feladat megoldható a kurzor mozgatásával és üres sorok ínatásával 
is. 
A programok: 


a) b) 


ia PRINT"(g" PETNTELJ! 
za PRINT "AaLMAT FERIMIT "ALMA" 
30 FRIMHT "BHRLNMA" ERINTO" BEsBAL MAT 
4a PRINT "ttal MAT FELNIT" HAHEBEEEAL MFT 
nki EHH EFJTI 
c) d) És egy megoldás 
a PRINT utasítás 
segítségével 
18 PRINTtúJg" 18 PRINTTAJ" 
20 PRINT "ALMA" 2a PRINT "ALHA" 
ek PEGIUJT 0" HŰRTEROlfdA" za PRIHT 
a PRIHJT 0" BEREGJEKZ LA" 39 PEIMT Vá LHA" 
ak EMDN sza PRINT 
s PRINT "S RABALMAT 
7 EMD 


37. Vegyük észre: 
- A PRINT TAB(X) parancs az utolsó kurzorhelytől számítja az X. helyet. 
—- Ha a PRINT utasítás után nincs pontosvessző vagy vessző, a következő 
PRINT utasítás mindig új sort jelent. Így ilyenkor a PRINT TAB(X) utasí- 
tás a sor elejéről elkezdi a számolást. 
A programok: 


a) b) 


La PRI! if PRINT"Ag" 

2 FRII zi BRIT "ALBA? 

ga PRI § zA PEIHMT 

88 FR11 Jaa PRINT 

7 EHE sű FRINT 
en PRIRHT TAZBÁÉd:? "ALLHAT 
TA EHD 


38. Vegyük észre: 
— A megtervezett ábrát a PRINT TAB ), ill. a kurzormozgatás segítségével 
soronként lehet programozni. 
A házrajzoló program: 


PRINT TARBAÁSÍI9A vk 


í PRINT "ag 
í £-d.5 

eg PRINT "úg" 
23 BERHRHtEC 

zs BEB7-B 

3 

a 


FELWYT THECETLAaT "ER 
PRINTTAB(1IIJE TEA bbá bbá! 
PRINT T8BBÉLAsz et s. zjő 


A 

ea 

a 

E 

[új 

Aa 

aü 

idezi 

TA PRINT TAB-S pt 4! 

88 PRINT FABTBIZSA a sági 

SA FRINT-TABAÁT ARS 4" 
199 PRINT TABAÁABIZ "tr e 
Lí8 PRINT FABES EME ER EEEEEEEEFESE Eb E bb hi 
128 PRINT TRET hé 5 

1398 PRINT TAB( "4. 4" 
148 PRINT TABÁÍ7Z3: "tá a 

150 PRINT TABÁA7TIZY4  46AEEEE Ft-t ölti 
168 PRINT TABRBÉ72z e § ak zal 4 
Ird PRINT TRRBÉT 22 "€ 5. bi E szölát: u áj 
ig PRINT TABÍ7TI:"á pek détb c allt Fils 
ia FRINT TABÁÍ7TAaF "A : all a 4" 
en FRINT TABI7Z2: "a fo. sp ee 
218 PRINT TRBC(raz"á mt § 8 
2eR PRINT Ve ett Pet A FEE EE EEEEEE EE EE EE E Ebt bbbbt 


39. Vegyük észre: 
— A TABK( ) segítségével szép táblázat készíthető. 
—-— Ha a PRINT parancs után vagy ; szerepel, a tabulálás ugyanabban a 
sorban folytatódik. 


A program: 
10 FRINMTVUJ" 
29 PRINT "A HARHAS SZORZÜTRBLE ELEMET" 
zi PRINT 
38 PRINT "SORSZÁM" " . "SZORZAT" 
38 A-i 
cd E-Axz 
Tü FEINT 
a PRIRHT 
ad A-z 
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ra I 


I er Vál VAGYON VAY ORR VE VAR TET TRNBNN T7 NNA VES) 


40. A program: 


PRINT" 
PRINT" ETATET" 


aaa 


TIE 102 TES 38 EK B IE ől 8. VÉ dé 8 St TÖK dát CE. BAK 2 TE SE BE SS 8 BE ák AE IK 98 EE! 
§ "6 B E € 8. GB... § €§ B 8 §€§ S... 


." 


ae 


3 


1 1 bh o ü MM 
9 mm E 5. 7 
T) 
A] 


ÚJ 
a 99 R9DD 


RROIJT " STSJ-TSIZTSS BE BSEBEBERESBEBAZIC" 
FR INT " EISTETSTSTST " 
tikkki td dt, db ab. E, db b B d b d öb b. ZE, 0 Mb. SE, b ő. Hb. E öt. E, 96 E db, HE A 


3 2 oz 
f.. 


kr. 


au 
ÉT 
an 
.. 


a FEIMNTORERKERERMEERERERERKEKREKEREKK kk kk k? 
id EHÜ 


ms pet I 


3.2 A változók cseréje 


41. Vegyük észre: 
- A csere lebonyolításához szükség van egy harmadik változóra is. 
A program: 


TI 
4 elllte : ss ss 


3 
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PERIMT EKE EttttkkEMKEKEREEREkKEkáktkkkkkkkk kokk kk 


Ap. 


e. 
x 
3 
Ed 
se 


an 


Ég 


au 


42. Mivel az A—B és a B—A egyenlőségek definiáló egyenlőségek, így azoknál 
csak a bal oldalon álló változó egyenlő a jobb oldalon állóval, visszafelé 
ez nem igaz. 


43. a) C—O b) C—16 c) C—22 d) C—— 


44. Vegyük észre: 
- A rendezés előtti sorrendet még a rendezés előtt ki kell íratni, hiszen a 
mozgatással a változók értéke folyamatosan változik. 
-— Fel kell vennünk egy új változót, hogy a csere létrejöhessen. 


az tl 


T) mm 


PETHT"CSERE. UTAS 
PRIHT"TAz":A," szaz E, Loa -ú B 
EMI 


ik9i 


A program: 
in FRIINT"VUJ" 
2 PRIHT TABCTil:F "vALTOZOK CZSEREJEH" 
28 5-3 
4 B-4 
nűü €-7 
A PRINT"CSERE ELOÜTT:" 
TA PRIHT"Az" EA," B-":B,"C€C-":re 
sű Az-A 
an A-B 
199 E-C 
1 
i 
1 
1 


5IMEIZ 
2) 


[13] 


45. Vegyük észre: 


— Az előző feladattól annyiban tér el, hogy itt füzér változókkal kell dol- 
goznunk, így az újonnan bevezetett változó is füzér lesz. 


A program: 
18 PRINT" 
en PRINT TAB €Biz HAROM TARRGY CSEREJE" 
389 FRINT 
4A ASZ"ZOKNI" 
58 E3-"KESZTYU" 
RO €$4-"ZSEBKEMHüü" 
Tü FRINT"CSERE ELÜTTE" 
aki PRINFSV1i:. FIORK"T AE 
38 FRIHTV"AZ. FIGK" Ex 
i FRETKIT "3. FIOK" CB 
í "szar 
11 A3t-ePF 
ih: €34-BE 
199 E3-ABR 
128 FRIHT 
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id FRIRHT"CSERE UTAM: S 
irt PERSME Tin FTOK" FEK 
189 FRIHT"2. FIOK" EZ 
íg PRIHT"S"3. FIOK" CC: 
z2pa EHN 
3.3 Az INPUT utasítás 
Szintaxis Tartalom 
10. sor id IHPUT A Begépelt valós számot. A változónévvel 
a memóriába visz. 
20. sor 2A IMFRFUT Ax Begépelt füzért A$ változónévvel a me- 
móriába visz. 
30. sor 30 IMHPUT AK Begépelt számot egész típusúként viszi 
a memóriába, A9/g változónévvel. 
40. sor 38 INPUT"SZOVEG" Az INPUT utasításban idézőjelben sze- 


replő szöveg a képernyőn megjelenik. A 
memóriába kerülő értéket közvetlenül ez 


50. sor 538 IMHPUT"SZŰVEG"? 
e 
után kéri. 


60. sor ER INPUT"SZOÜVEG! 


46. Vegyük észre: 
- Mivel két tetszőleges számról van szó, valós típusú változókkal kell dol- 


gozni. 
A program: 
a) b) c) 
if PRINT "új" ta PRIHT "ág" PRINT "Ag" 
zkt IMFRFUT A za IMPUT A INPŰT A 
zi IMPIT B za ; B IMHPUT B 
48 PRIMT A.B ge A PRINT AZB 
nk EHO kari saj B sza EMM 
ds 
47. 48. 
id FRIHMTVUJ4" 
28 A 
zAa 
ami E 
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49. Vegyük észre: 
- A szöveg kiíratására több lehetőség van: 
a) A számolás után a hányadossal együtt. 
b) Az adatok bekérése előtt. 
c) Az adatok bekérésével egyszerre az INPUT utasítás speciális tulajdon- 
ságát kihasználva. 
A programok: 


a) b) 


19 PRINT"X" 18 PRINT"UJ" 
2Aa IMFUT A 2A PRINT"AZ OSZTAMDOOZ": 
38 IMPUT B za IMPUT A 
48 C€-6/B 49 PRINTTAZ ÜSZTOZ!E 
58 PRINT"AZ OSZTAMDO- ta 5A INPUT E 
BA PRINHT"AZ OSZTO-"EB ea €-A/B 
78 PRINT"A HatlrrAOOS-Zt EC —-m PRINTTA HANYADOZSZT ET 
SA EMO sm EMD 
c) 

18 PRINT"Ig" 

ZA INPUTTAZ OSZTAMOOZ!E A 

ZA INPUTT"AZ OSZTO-":E 

4 €-6/B 

5A PEINTTA HANYADOSZT EC 

Em EMO 


50. 


FETLTNE aa" 
PRINT"NEGY ALAPHMHUVELET" 
FRÍLNHT 


1) HE u ELS EL nt ELS 
nm 


mm 


m 
HR! 


ra (Lp MÜ 
mg mDIin 
md 


fe. 


bí mellig 


[es tea li ven áli CC 
(5) 7) mm 
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51. Vegyük észre: 
- A program indulása előtt közölni kell a használókkal, hogy milyen feladat 
elvégzésére írtuk. Ezért célszerű címet adni. 
- Meg kell magyarázni, hogy milyen adatokat vár a gép. 
- Az eredmény elé oda kell írni, hogy mit számolt a gép. 
A program: 


PETST S" 


FRINT"SSZAHMTANMI KÖZER (ATLAGI SZAMITASA" 
FRIHIT 


E) 


39 FRINT"AZ ELSŐ SZAM" 

ad INPRUT A 

Eü PRIMHT"A MHARZSODIK SZAKH" 

ve THEUT B 

sa C5s(ATBI-/Z 

39 FRIHT"A KET SZAM SZAHTAIMI KÖZEPE ":-E 
imad EM 


52. Vegyük észre: 


— Közismert képletek használatakor célszerű a hagyományos jelölésmódot 
alkalmazni. 


A program : 
ia FRINMT"uJ" 
za FRIRHT 
3Aa IMPIUT A 
gAa IIMWFIIT B 
szi K-t BI1rE 
Ez T-FA4iB 
TO FRIIT KK 
ZA PRINT OT 

EHJN 


53. Vegyük észre: 
- Két állandó szövegrész közé változókat is írhatunk, ha azt az idézőjel- 


ben levő szövegrészek közé, tőlük vesszővel vagy pontosvesszővel elvá- 
lasztva írjuk. 


A program: 
ím PRIHT "úg" 
za PRINT" TEGLSLAF KERÜLETE EZ TERULETE 
39 FRIPIT 
g8 PEIMT"TELZŰ üLMmÁL  (ÜFinz 
58 INFUT A 
8d FRINT"MAZODIK OLDAL (CMI:": 
7£ IMIRIIT B 
zü Ke RiE:;Z 
Jt T-A4kB 
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KERÜLET" 3:K 


PRINT"A 
A TERÜLET" ET; 


19d 
118 FRIWHT" 
12 ENO 


41 Ha 


PRINT Vu4" 


FEIHT 
FRIMNMTVA KÜR 
IfHPRUT R 
KEZAROK TT 
TERT2kd 
FRINT"A 
FRINT" 


S5UGSARA 


nm (OAB 0 TD 
AANAMDOMRT ND 


5) 
Mm : 
öz 


u 
u 


LE PRINT" 

28 PRINT"AZ YEZ4kKAA 

zi PFEINT 

48 PRINT"K ERTEKE": 

58 INHFRUT A 

BE T-ZKKEG 

7A PRINT"A FW ERTEKE AZ 
szü EMU 


18 PRINT"AJ" 

20 PRINT"AZ Y--1/5 
38 PRINT 

38 PRINT" ERTEKE": 
sit IHPUT 

RB Y--1/54H4I 


rő PRINT" "HAH EV ERTEKE őZ 
ET 


57. Vegyük észre: 


PR IT"KOR KERÜLETE ES 


repn 


"IGHIÍTS" 


TEJ" z 


FY ERTEKE 2 


Pk ti FV ERTEKE ő 


TERÜLETE" 


KÖR KERÜLETE" $K2Z "ERT" 
KÖR TERÜLETE" s Té "GMTE" 


HELYEN" 


: "HELYEM"? Y 


HELYVEP" 


HETHELTEMtEY 


— Az általános elsőfokú függvény Y—AtX-3-B alakú. 
— Az X mellett meg kell kérdezni az A és a B értékét is. 


A program : 


PRINT"! 


169 Hl 10 ELO 
E mDIJ 


Fv ERTEK 
HELYEN" 


E IMEK" 


PERIRHT" 


ga b ááá a 

mit IEHRIIT Fi 

eü FEREIHNT"SB-" a: 

ri IMHFUT B 

ak ERINT me"? 

ze TMPRIIT Hm 

ifi T-AxrtB 

118 PRINT 

128 PRIMT"YAZ Y zttk sg PT EBI! FW ERTEKET; Yv 
138 EM 

58. 

16 PRINT"úJ" 

eü PRINT" "TETSZÜLEGEZ SzAM TETSZÜLEGES SzAZALAKRA" 
za FEINT 

am o IMPUTS AZ ALAP TER 

sit IMMRINT SA SZAZABLEKLAE " :5L 

BE 5E-§s5L.199 

Ta PISI IT" SZAM: ZLF S SZAZALAK A" SE 

za Erum 


59. Vegyük észre: 
—- 3 pók 3 nap 3 háló — 
A program: 


Mos) 


PRINT"-J" 


1 pók 3 nap 1 háló 


— 


1 pók 1 nap 1/3 háló. 


2ú PEINT TAB(DI: "3 FOK 3 HAP AÁLRARTT 3 HALOT SZO" 
38 PRALHIT 

Ja IHRUT HANY PÜK "PF 

mid IHFIITSHANy HEAR ALATT § FM 

eü H-Fxhiii 7 

za FERLPIT 

s FEINT Fi; tPOK BE EJESEIAP ALATT EHE "HALÜT S5zü" 

at EHD 


60. Vegyük észre: 

-— Egy könyv 100 oldalból és két borítóból áll. Ez 12 napi rágcsálásnak felel 
meg. Tehát amennyi a könyvek száma, annyiszor 12 nap! 

A program : 


HORD DE 


4 


kt 


mar mn n b in me 
7 


im Ha 


4 s s a ([j 
íj TM mm I9J DD 
ÍS 


2 


o 
[7 


rEADDD 


kó 


4 Mm Ul 5 td MŰ 


ke 


hú Mm e eg im DD ri 


3 ll! 


úri 


ma an 


[ERR vari Var Vál TET ES 9 
mi 


is, 


PRRINT"UJ" 

FERINMT TABfi14i:; "szüVETSAEAZÜ" 
FRIHT 

FRINT"8Z EGYSEGAR MFT/t4 "s 
IHFUT E 

PRINT"A HOSSZÜZSABSB (BI: "s; 
IHFTT H 

8§7-ExH 


PRINT"A VEG SZÖVET ARATFAFTET" 


A EMU 


PRINT"Ag" 


PRINT TABEI 14: "HASODFERC SZAHLALAI 


ERJTEIT 

FRINHTSKEREM AZ INOTRAERTAMOT" 
FRINT "ORA" E 

IHPUT H 

FETHT  PREC" s: 

IHIPIUNT F 

FERIMT "HESODFERC " 


im 
zt 
4 


E.tüli 


PETNT"S.3" 
PRINT TABÉ( 132: "MERBTEKATSALTAS " 
FRIBÍT 

FEINT" "A HOSZZUZAG METERBETJ" E 
THELET  H 


n-Hai 


PRINT 
EHID 


64. Vegyük észre: 
— A játékos által begépelt értékkel ugyanazokat a műveleteket kell elvé- 
gezni, amelyeket a szabályban megadtunk, csak fordított sorrendben. 
A program: 


FETUT "Eg" 
zü FRIKHT TABC(S1:; "SZAMKITALALO" 
mel FRINT 


d FRÜJT ESZHT ; 
A FRINT 
t FRIGET "HA 


u h ú4 Ti 
3 
TI 
A 
1-4 
3 
2) 
2 
vál 
fe] 
7 


EREDMENY " ; 


a zs pa ÚN 00 MM d 


65. Vegyük észre: 
- A feladatban füzér változók szerepelnek. 
- A táblázatot célszerű PRINT TAB(X) segítségével megszerkeszteni. 
A program: 


PRINT"AJ" 
PRINT TAB(1I23: "LAKCIMJEGYZEK " 
FRIHT 


mi an 


kés 
1 


ül B o í4 Mm e 
KH) 


it IMRITTSMEV"S"S1E 
ki írd 
[nú ai A 
TE  ITMFIITELAKIIH" EZER 
EEHELET "HEG" BIGB 
IEJFIIT LAKO IF" FBZE 


PE ET "E 


aj 


(TTI 
a 3) 3] a 
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3.4 Néhány gyakori függvény 
Az egészrész függvény INT(X) 


66. Vegyük észre: 
- Tetszőleges A szám egészrésze INT(A) alakban számítható. 
A program: 


PRINT"ú4" 

PRINT TÖöS€S1F "EGESZRESZ MEGHATAROZOTT 
PRINT 

TINPUT SA SZAR" ZA 


d DID 


10 0 b ld ÍM) e 


DDII 
TI 
3 
je 


67. Vegyük észre: 


—- Az egészrész függvény a számnál nem nagyobb egészek közül a legna- 


gyobbat adja. 
- Felfelé kerekítünk, ha a törtrész nagyobb vagy egyenlő 0,5-del. 


— Ha a kerekítendő számhoz 0,5-et adunk, annak egészrésze pont a ke- 


rekített értéket adja. 
A program: 


PRINT" .4" 

FRRINT TABCI532: "KEREKITES" 

PRINT 

IHPFUT"A§ KEREK ITEHNN SzAPT" FA 

B-A4.53 

B-zZIMTÉB: 

PRINT 

PEINT fi: "EGESZERRE KEREKITETT ERTEBRBE "?B 
EH 


iú [0 e 


aj m ül b 
AEADADDMDIND 


ún ro 


68. Vegyük észre: 


A pontszámokat öttel osztva és a hányados egészrészét számítva, az osz- 
tályzatnál eggyel kisebb számot kapunk. Így a pontszám egyszerűen szá- 


mítható. 
A program: 


18 PRINTELI" 
A PRINT TABÁ(152: "OSZTALYOZO" 
PRINT 


Joás 
ut ll as 


INFUT "A TAHULO MEVE":MHR 
IMHFUT "A FONTSZAMA"F 


e B íj Mm 
mm 


BA J:-INT(P/33611 

ra FERIBET 

SO PRINT MHE4:" ERDEMJEGYE "F.JI 
aa ERHD 
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69. 


ma a 


in 5 4 0 e 
fc Eho ) 


mo aj m 


fat 
pas 


[ELÉ 


Les a es tt sze e sala s eláll 1 4) 
som o Rh 4) Tr 


(1) 


"a 
b 


gy flll ka las EL Lk kv) 


kt lo Mk fllhos 


Vegyük észre: 

A címletezés a következő lépésekkel oldható meg: 

- Vesszük a szám és az érme értékének hányadosát. 

- Vesszük ennek egész részét. Ez megadja, hogy hány darab ilyen értékű 
pénzt kell felhasználni. 

—- Vesszük a maradékot. Ha az nem nulla, ezt a műveletsort végezzük a 
következő pénzénrmével. 

— Ha a maradék nulla, kiíratjuk a kapott értékeket. 

- A feladat megoldását mindig a legnagyobb pénzérmével kell kezdeni. 

A program: 


PRINT" U4" 
PRINT TABÉ125;F "CIMLETEZON" 


[ic fllkcs Hl! 
TI 
[1 
na! 
da 
a 
1 TI 


[hö 
7 
7) 
- 
183 
n 
mm 


FT LEGEGYSZERÜUBE FELBÜNTASA 


0 


PR LT 

PRILNT BF"OB 
FRIRHT DF "DB 
BETNT Fő "EB 
FRIMHT 6: "DE 
EHE 


fesz 
[9 


hoi 


Vegyük észre: 

A feladat a következő lépésekkel oldható meg: 

- Vesszük a szám és a három hányadosának egész részét. 

— Vesszük a szám és egészrészének különbségét. Így megkaptuk a mara- 
dékot. 

—- Ha ez nem nulla, az előző műveletsor ismétlődik. 

— Ha nulla, kiíratjuk az eredményeket, fordított sorrendben. 

A program : 


T) 
A] Ai 


"! 
ITT 64 DP ed eg 


Hi 


(4) 


u 


mninmndT 
" 


1) 


7 
1 
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ga F-IMHT-(O-/Z3I 
Jj8 6-M-FAaz 

LE PRINT B7FEZ:E 
iii EHJ 


"d 
fir 


Vegyük észre: 

— A természetes esetben 6-—-14 éves kor között az életkor és az osztály 
közötti összefüggés: 
Az osztályséletkor—5. 

A progrím : 


PERLINT "AA" 

FRRINT TABÉf 123: "OSZTALYBA S5üRÜLŐÖ" 
PRIMT 

INPRUT "A TANULÓ MEVE"T MB 


im 


1 


in B (0 ff 
5 


8 TMHEUT SELE TRIIRH CEZ "RE 
BB ASE-S 
7 PRINT MESA". DSZTALYOS" 


I 
ran 


mü 
5 
m 


A négyzetgyök függvény SGR(X) 


72. Vegyük észre: 
— Tetszőleges A szám négyzetgyökét SOR(A) alakban számíthatjuk ki. 
A program : 


ERIHIT "ug! 
FEINT TAB(1L1:; "MEGYZETGTOŐK SzAMOLOTt 
PBSIHT 


[3 Eho Hlltő 


3] 


4 DBR N 
[3 


én 
1 


ej 
w 


Vegyük észre: 
— Az átfogó a Pitagorasz-tétel alapján: C— E 27-Bt2 


— A kerület és a terület mérőszáma után írhatunk mértékegységet is. 
A program : 


0 - 


jo lls lisa fh 


m ig b új 
: Hb 
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edes nes 
men 


A FRIHT "A HAROMSZOG KERÜLETE "EK: "üCrd" 
A PRIHT "A HAROHSZOG TERÜLETE "SET; "űfife" 
Aa EMü 


A véletlenszámot előállító (generáló) függvény RND(X) 


74. 


75. 


ENNE LEEN 
998 


1 
[csaak ) 


1: mi 


Vegyük észre: 

— Véletlenszámok az RND(X) függvény segítségével hozhatók létre. 

— Ezek mindig 0-1 közé esnek, de az 1-et nem érik el. 

— Egész számok generálásához a véletlenszámot egy egész számmal szo- 
rozni kell. 

-— 0-14 közötti számot kapok, ha a vétlenszámot 15-tel szorzom és annak 
egészrészét veszem. 

— 1-15 közötti véletlenszámot kapok, ha az így kapott értékhez még 1-et 
adok. 

A program : 


FRINT "íg" 
PRINT TAB(IRD: "VELETLEN SZAMOK (1-153" 


A-IHTÉRHOUOT1o 415261 
SZEINT tRMüri6s15m:6ti 
C-IMTUORHG A 
D-IMJT--RtOKZixk15Iii 
EZIHÍTÉREŰ tt 15x15536§1 
AR:BFCFOFE 


a 


:x135318t1 


en 


Vegyük észre: 

— 0-68 közötti véletlenszámokat kapok, ha a gép által generált véletlen- 
számot 69-cel szorzom és az eredmény egészrészét veszem. A számok 
között így a 68 is szerepelhet. 

— 32-100 közöttiek a véletlenszámok, ha az eredményhez még 32-t is adok. 

A program : 


FRINT tg" 

PRINT TAR( szamok (32-i1mma? 
PRINT 

ARZINTÉRNDOG 19 

B-INT(RNO( 

C-INMNT(RHO( 

D-INTERHŐD 

EZINT(RMOŰ( 

BETR 


m xi 
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76. 


FRIMHT"u4" 
FRIRIT TÖBT lé E LÖTTŐ JATEK" 
FRINT 
AZINT(ÍRHOC1:x39951641 
B-INT(ÉRND(-(12439€85141 
C€C-INT(RND-f1:x93951-61 
D-INT-(RND-C(15xr93ú5-1 
EZzINTÉÍRNDíÉ(125319835341 
PRIHT "A NYERO SZAMOK: " 
PRINT 

a PRINT 67FB7CFD57E 

Ki EM 


7 


mm If) 0) 0 A) ÜT B 4) MV e 
nRNADKADAFGDINDI 


wa 
Fi 


PRINT"AJ" 
PRINT TAB( 14537 "KOCKADOBALO" 
PRINT 

PRINT "A TE DOBAZAIÓ:" 


AZINT-IERENDÁL15465641 

B7-IMNTÉREHŰŐTZ 154187 641 

C-IINT-RNDÉ15485-61 
ís 


PRINT A,B.C 
PRINT 
PRINT 
PRINT "A PARTNER DOBASAÁI:" 
O-INHT(ÉRMO:152482641 
EZINT(RMD(1548261 
F-INTÉ(RNMD-(1)9$83641 

PRINT D.E.F 

PRIHT 

A-A4tBÁC 

D-D$E4F 

PRINT t"A TE PONTJAIC: "A 

PRIHT 

PRINT "A FARTMEREDO FONTJAI: "O 
EMHO 


[04 EN 10 ELSO CO allt ae CN ell CN VO 94 LA a ER G ú RG Ill a s RL HL , ERR a VNC) Ell 1 4 ERKEI 
n H)YDIMÜAEVMEEEGÜAANKDHEMHOANDAN 


ADRXAPADDADNNMDWDIN 


3.5 Az IF...THEN és a GOTO kapcsolata 
— IF (valamilyen reláció), THEN (valamilyen utasítás). 
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-— Ha az IF után írt reláció igaz, akkor a THEN után írt utasítást hajtja végre a 
gép. 

- Ha az IF után írt reláció nem teljesül, akkor a program futása a következő 
soron folytatódik. 

- A THEN után leggyakrabban a GOTO (sorszám) utasítás található, aminek 
hatására a program futása a GOTO után írt sorszámnál folytatódik. 

- A THEN után több utasítást is írhatunk, ezeket kettősponttal kell elválasztani 
egymástól. Ekkor ezek egy prognamsorként értelmeződnek. 

- IF THEN GOTO-val ciklus is képezhető. A ciklus adidig ismétlődik, amíg az IF 
THEN közé zárt feltétel teljesül. 

- Csak GOTO utasítással is képezhető ciklus. Ekkor feltételtől függetlenül, 
ahányszor a GOTO utasításhoz ér a program, a ciklus újra indul. Ez a vég- 
telen ciklus. 


78. Vegyük észre: 
-— Ha a szám 20, akkor pozitív. 
— Célszerű folyamatábrát készíteni, amelyen a program főbb lépéseit áb- 
rázoljuk. 
- Célszerű a folyamatábra elemeit a , nem" ág felé számozni, mert így 
ugró utasítás takarítható meg. 
A folyamatábra: 


mo mo éú Mm 
dot ll ha Mllics Ill cs lt ho [dd kó 


m 


a 


he li 


184 ELEN 
[hot TR! 
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79. Vegyük észre: 
— Két nullától különböző szám azonos előjelű, ha a szorzatuk pozitív; kü- 
lönböző előjelűek, ha a szorzat negatív. 
A folyamatábra : 


19 PRINT "49" 

20 PRINT TRBÁÉSI? "ELOJELYIZSGALUÚ FROGRANM" 
zi PRINT 

JR IMNPUT "ELEM SzAM-T FR 

zA INFT "HAZUDIK SZAM" :B 

353 PRINT 

sa €-öxB 

fú IF LO 1HEN BÜTO 198 

zű PRINT 67-B: "KilLürBüzű ELŐJELÜŰEK " 
aü GaTO iim 

i9d8 PRINT A;B; "AZOMÖS ELŐJELÜŰEK " 
l1íf Ejrű 


80. Vegyük észre: 
- Három lehetséges eset van, így két kérdésre van szükség. 
— Például így: 1. a szám nulla. 
2. A szám pozitív 
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A folyamatábra: 


A program: 


1 PRINT "úg" 

zü FRIHMT TABÉZ? 7 "MILYEN ELÜJELUÜ A SZAPT7" 
zi FRIHT 

Ja IMFRFUT "A SZAM ER 

32 IF --€£-A THEM GNOTÜ 5A 
3JE FRINT ZF "HULLA" 

g7 GOTŰ gű 

jzAü IF oki THEM GüTü sa 
A PRIMHT S; "HEGATIV" 

7Aa Gara ga 

38 FERINMT A: "POZITIS" 

aa EMHH 


81. Vegyük észre: 
- Nem negatív számok abszolútértéke önmaga, negatív szám abszolútérté- 
ke a szám ellentettje. 
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A folyamatábra: 


START 


A program: 


18 PRINT "4! 

ZA PRINT "ABSZOLUÜTERTEK SzAMOLO?" 
38 PRIHT 

48 IMHPUT "A SzAMztax 

sű IF K-A THEN GOTO za 

Bű YzEX 

7A GOTŐ SA 

EE r--M 

af PRINT M;TRESZOLUTERTEKETtEY 
188 EMU 


82. Vegyük észre: 
— Sztring és valós típusú változókkal kell dolgozni. 
— Összehasonlítani csak a testmagasságokat kell. A neveket a kiíratásnál 
használjuk. 
A folyamatábra: 


58 


9] 


I) T0 AL MOT b TV 
ADA DIDMI MM IZ 


0 mM na DD 


rest Ce ee e 


83. 


A program: 


FRINT "ül! 
PRINT TAB(4: E "TESTHAGA 
FRIHT 
IíiuFRiIÍT "ELSÜ MEVI "TAR 
IHPUT "TESZTHAGAZZAGA 
INFUT "HAZONIK MEVI" 
IMHPUT "TEZTMHAGAZZAGBA 
PRINT 
IF A:E THEM GOüTN 1 
[71 PRINT BE: " MAGASABB 
a GüTŰ Í7ZA 
a PRINT AZ: " HAGRZARBE 
zi Ehü 


Vegyük észre: 


ssaGak 


MINT 


MIT 


tS5sSzZEHASÜONL Í TASA" 


"AR 


":B$ 


- Három lehetséges eset van, így két kérdésre van szükség. Pl.: 


1. A egyenlő B-vel? 
2. A nagyobb, mint B? 
A folyamatábra: 


To 9 RB 0) Mm 


mm 
G 


A program: 


z -4m 
fe : 3 1 JÓÓ at 
mm in en 
2 

) ím 


Ti 
esti ssááti este. 
f 


7D INFIUIT "TEZTHAGASZAGA: "FB 

ga PRINT 

ali IF A-r:B THEN GüTÜ 39 

22 FRINT A8$7" EZ "FEB?" EGYFORMA HAGAZAK" 
23 GO0TOÚ 138 

939 IF 5§-B THEN GOTÜ 129 

198 FRINHT BEF" HAGAZABB MIIJT "AP 

11A GOTM í3A 

12 PRINT A37F" MHAGAZABB MINT "FEBR 

13 EHD 


84. Vegyük észre: 
— Egy számot lefelé kerekítünk, ha a törtrésze kisebb 0,5-nél, különben 
felfelé kerekítünk. 
— A törtrészt a szám és egészrészének különbségeként kapjuk. 
A folyamatábra : 


A program: 


10 PRINT "ú4" 

ed PRINT TAB-(92F"FELTETELES KEREKITÜ" 

3 PRINT 

49 INPRPUT "A SZAMH-" FA 

sm B-INT(A? 

69 C€C-6-B 

TO IF C-9R.5S THEN GÜüTŐ sa 

839 B-Et1 

39 PRINT A7F" EGESZEKRE KEREKITETT ERTEKE "FE 
199ú ENü 
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85. Vegyük észre: 

- Olyan programvédelem nincs, amit senki sem tud kijátszani. Ez a nagy 
szoftverházak legnagyobb gondja. 

- Nem szakemberekkel szemben azonban védelmet ad, ha úgy szervezzük 
meg a programot, hogy a kitűzött feladatot megoldó rész elé egy olyan 
programrészletet írunk, amely csak akkor engedi tovább futni a prog- 
ramot, ha egy bekért érték megfelel egy bizonyos feltételnek. 

Például a program csak akkor fut tovább, ha az elején begépelik az 
írójának nevét. 
Kitalálhatsz jelszót, számsorozatot stb. 
Ha nem a kívánt dolgot gépelik be, a gép megáll. 
A folyamatábra: 


A program: 


) 


fi 
6 


FRINT "44" 

IINNPUT AR 

IF 63-"KISS5 LAJOS" THEII GOTÜ 230 
zTOüF 

REM ITT IRMOUL § FROGRAFI 


[48 ) RA no HUS ER UN ELT 
mXRAaDD 


86. Vegyük észre: 
- Rossz adatnak minősül minden nem pozitív szám. 
— Ha az adat rossz, újra vissza kell térni a bakérő utasításhoz. 
- A műveletet csak megfelelő számokkal végezzük. 
A folyamatábra: 
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A program : 


87. Vegyük észre: 


—- Osztás esetén rossz adatnak minősül 
osztás nem értelmezett. 
— Az osztandóra nincs megkötés. 
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1 FRINT"VUZ" 

za PRINT TABÉ115; "üsszERDÜ 

za FRIHT 

ga IMHPUT "ELSÜ POZITIV SzAM 
5A IF A-A THER SOüTŰ EH 

6Aa PRINT"ROSZSZ RORT" 

Tü GüTA dí 

RA INPUT "MAZODIK POZITIV SzH 
aa IF E-A THEM SüTŰ izHü 

188 PRINT"ROSZzZ ADAT" 

118 G0üTO ZA 

12ű C-8AtE 

í13A PRINT 

Lá PEINIT A KET SZEM OSSZEGET" 
1538 EMI 
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, ha az osztó értéke nulla. 


Ilyen 


A folyamatábra: 


A program: 


PRINT "I" 
PRIET 
FRIHT 
ÜNELT 
IMPLIT 


min 


1 
ma 


[o 


e 


.ra (e MM NN Rh 0 TŐ e 
AK GEBG 


TD 
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88. Vegyük észre: 


—- Rossz adatnak minősül, ha az X értéke nulla. 
A folyamatábra: 


A program: 


m 


PRINT "EI" 


PRINT" Y:-2xirtz3 FY.ERTEKENEK SZAMITAZA AE A 
PEITT 


2 mg 


7) 


o KR íú TD E 
[az ja Mos 


ia 


va ég) üg am) 


mm 3 


89. Vegyük észre: 


— Ha az első szám volt a kisebb, akkor a begépelés sorrendjében kell 
azokat kiíratni. 


— Ha az első szám nem nagyobb, akkor elvégezve a változók cseréjét a 


memóriában, a változókat itt is az eredeti sorrendben kell kiíratni. 
A folyamatábra: 
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A program: 
19 PRINT" uJ" 
zt PRINT TABÉZ:F "KET SZAM HüVEKVÜ SORRENDBE RENDEZESE" 
zi PEIRHT 
aa IMHPUTTELSO SZAM FH 
58 IHPUTSHASONIK Szatt" FB 
ga IF A-B THEN GNTAN 38 
TA A-B 
71 A-E 
rz B-A 
30 PEIMT §7E 
ia EHE 
90. Vegyük észre: 


A 


Sztring típusú változókat is lehet nagyság szerint összehasonlítani. 
Az abc-ben előrébb elhelyezkedő betű kisebb értékű. 
A feladat az előzőhöz hasonlóan oldható meg. 


A változók cseréjéhez felvett új változónak is sztring típusúnak kell lennie. 


folyamatábra : 
(sra ) 
(1) 
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Bú) Mm 


Les csá esta Mltes Klan ln ERL 
Don MM e HD DD 


0 
— 


mm 3 mm 


A program : 


Vv 


A 


PRINT!" 
PRINT TABCR: 
FRINT 

INEUT "ELSO MENTE: 
IMPUT "HAZUDIK 
IF A£-BE THEN 
sEZAB 


"KET MEM 


At,BF 


együk észre: 


Legjobb esetben a számok már begépelésnél jó sorrendben vannak. 


MHEVSüR 


ER 


RENDEZESE" 


Legrosszabb esetben egyik sincs a megfelelő helyen. 


Rendezés előtt ki kell íratni a sorrendet, mert a változók esetleges cseréje 
a változók tartalmát változtatja. 


folyamatábra : 


START 
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A program: 


19 FRINT"UJ" 

zt PRINT TRB( 13 "HAROM SzAMH HOVEKVÜ SÜRRENDBE REMDEZESE" 
za FRINT 

Ja IHFUT 

sű IMPUT 

Ba IHPIT "HARMA 

TA PRINT "44" 

37 FRINT" BBEREDETI § 

kajai : THEH GüTi 

18 ; 

11 HEMH GOTŰ í4A 

128 H-B:B-C:C-s 

15d BOTO 30 

13£ PRINT" HBREMDEZEZ TAMI SORREND TAB :BEC 
ism EHE 


92. Vegyük észre: 
— Szerkezetében nagyon hasonló az előző feladathoz. 
- A változók ez esetben sztring típusúak. 
A folyamatábra: 
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c$ a x3 


A program: 


PRIHT"AJ" 

PRINT TAB(191:"3 MEV 
PRINT 
INPLT 


mí) (0 a DN B 9 0 e 


A 

[dl 

a 

ís 

E TNFUT 

al 

a 

a :S5Ez, Ez. CE 
a 

jartal 

10 

188 

13 

130 :":Ar, BZ CE 
38 


93. Vegyük észre: 
— A Pitagorasz-tétel alapján a háromszög derékszögű, ha az átfogó négy- 
zete egyenlő a befogók négyzetének összegével. 
-— A három oldal bekérésekor nem tudjuk, hogy melyik tekinthető befogó- 
nak. Így mindhármat meg kell vizsgálni, hogy igaz-e rá az előző állítás. 
A folyamatábra: 


START 
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A program: 


PRINT!"AJ" 

PRIHT T8B-B);"DEREKSZO 
PRINT 

PRIHTTA HAROM OLUÓAL : " 


7 6 fEGETE THEN GOTO 120 

z8 z TEFCIZ THEM GOTO 1EB 

an ATS-BÍZAOTZ THEN GOTO 128 

128 FRINT"A H MEM DEREKSZÜGÜT 
11 GoTAú 138 

128 PRINT"A HAROMZSZOG TGLI" 

138 EMD 


94. Vegyük észre: 
— Három szakaszból szerkeszthető háromszög, ho minden oldalára igaz, 
hogy kisebb, mint a másik két oldal. 


— Ha bármely oldalára ez nem igaz, akkor a három szakaszból nem szer- 
keszthető háromszög. 
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A folyamatábra: 


A program: 


MO PRINT"UJ" 
PRINT TAB(B);"SZERKESZTHETO-E HAROMZZOG?T? 
PRINT 


RPRINMT"A HAROM üL[MAL GE" 
1 


INHPUT"É-":e 


LEcLe lt aal ee át OC El 4 t ELT 4 EROS ER a e RL ELLOZEN VB E 1 4 ELS 


bjn.MVmeN9DRDME TDL 


mm Aa a mg 


FETT "t"WHEM SZERKESZTHETŐ 
Er 


95. Vegyük észre: 
— Egy háromszög lehet általános, egyenlő szárú vagy szabályos. 
— X egy kapcsoló. Értéke a következőképpen változzon : 
X—0O, ha a háromszög oldalai különbözők (általános) 
X—1, ha a háromszög két oldala egyenlő (egyenlő szárú) 
X—-3, ha a háromszög három oldala egyenlő (szabályos). 


70 


A folyamatábra: é 


A program: 


mm 


tí s ÚJ ÖN ás 


a Rad 


3 


-4 10 


szi 


THEtj GÜTM 119 


Mn 
1 


s Fr e () 
ta 
[ho ! 


(E) 


EL TÜ 
2) 


et 
[hr 


s] 


bb bab (5 bat 
a mm ún - 
E) ez 


J iz 


96. Vegyük észre: 
- A gondolt számot véletlenszám generátorral kell létrehozni. 
— Azt, hogy milyen számkörben dolgozzunk, célszerű a játékosek korához 
szabni. A mi megoldásunkban 1-—100 közötti számokat generál a gép. 
— Rossz válasz esetén célszerű a jó megoldást is megmutatni, hogy a já- 
tékos ellenőrizni tudja saját megoldásait. 
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A folyamatábra: 


A program: 
ím PRINT"úJ" 
2A PRINT TABfÉ11l:: "SZAMKITALALU" 
za FRIHNHT 
JA SZzZIHTÉRHOTiI:r1995641 
5A Y-t rezn-diketlv 
BO PRIHT"GSOKHOÜOLTAT 4 
7D PRINT"ELYETTEH 
39 PRIRHT"S VEGUL  HűüZz 
gű IMPUT "éfAdI A 50 ez 
la IF A-x THEM SÜTŐ 13 
119 FEINT"sjjEM TALALTHAÓ Et. A Sürjn0üLnT szabi" FH 
12m cüTű iga 
i38 PRINT" HELTALATAOÓ" 
igA EMD 


97. Vegyük észre: 
—- Az egyes programrészletek megírása nem jelent problémát, hiszen csak 
az ismert képleteket kell alkalmazni. 
- A programrészletek összefűzésére nagyon jól használható az úgyneve- 
zett menü, amelyet a program 40 . . . 80. sora tartalmaz. 
- X értékének megfelelően a program a használó által kért programrészen 
folytatódik. 
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A folyamatábra: 


PRINT" 
PRINT TAB(18 
FRIHT 

PRINT"MIT 
PRINT" 


HD mamn 


ALI Hl Ú EL 


e 
Ú] 


z 


m ul 
im DP 


1 
FRINT" Sz 


ARLEKLABAT" 


hó ll so 


szAzZHLEKERTEKET" 


LU dts ! 


ix 


[ha 
szaj 
ki 1 
nm 
pi! 
a 
aj 
nai ! 
b 
E 


tet BA 


) a 9) 
ka! 


Me éb lb bab [b b ÉJ 
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seta EI PUT SZEAZHLEKERTEK " £ SE 

zi 54£-(ZE/A.3X19AON 

50 ERINT" "A SZAZALERKLEAB "Tal 

zsü GOT 2380 

zdü IHFRFUT"TALAP "FA 

250 HPUT"SAZALEKLAB" ? Se 

289 5E-5Ax5L/199a 

erőd FRINT" "A SZAZALEKERTEK "2 SE 
eső END 


98. 


Mindkét feladat szerkezetében azonos a 97. feladattal. Ezért a feladatok folya- 
matábráját külön nem közöljük. 
A program: 


19 PRINT"AJ" 
28 PRINT T8AB(I50: "A NYOMAS! 
38 PRINT 
49 PRINT"E HAITI 
58 PRINT"1. NYOMAS" 
BB PRINT"2. NYOMOTT FELÜLET" 
7 PRINT"3. HYOMOERÜ" 
80 INPUT § 
a IF K-i THEM GOTO 14£ 
ag IF X-2 THEN GOTO 198 
18 IF 4-3 THEN GOTO 248 
28 PRINT"ROSSZ ADAT" 
za G sa 
48 ap TT FELULET (MfRl"ER 
sa 40ERO (Md "EF 


mű 
or SLM Bll ks 


TO TÜ TVT) OT OT a a Eb et b et tm [[) 
[ 1 194 SKY ! 
jógi 


fm nm 
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99. 
A program: 


im PRIHRTV4A" 

zA PRIMHT TAB( 

za FRIHT 

aa PRIRHT EH !I JT 
mizi A 1 di 
sa :E 
7 a 
aa 1dA 
11 eda 
te 

; 0 

ú IHIRLIT 


THEFT 


JUD Ps res; 


mi 


3.6 A ciklus (IF . . . THEN alkalmazásával) 


100. Vegyük észre: 

- A gép akkor írja ki a READY-t, amikor a program futása befejeződik. 

— Ezt megakadályozhatjuk, ha a program utolsó sorába nem END-et, hanem 
egy önmagára ugrató utasítást írunk. Ekkor egy végtelen ciklus jön létre, 
amely csak billentyűzetről szakítható meg (RUN/STOP). 

A folyamatábra : 
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A program : 
1000 GOTO 1000 


101. Vegyük észre: 
- A feladatot kétféleképpen is megközelíthetjük : 
1. A ciklusváltozó értéke a lekérdezés után módosul. 
2. A ciklusváltozó értéke a lekérdezés előtt változik. 
a/1. Vegyük észre: 
— A ciklusváltozó kezdőértéke 1, és amíg az kisebb mint 30, az értéke 
egyesével nő. 
A folyamatábra : 


A program: 


[3 


PRINT"A4" 

PELYHT TABCIZI: SZAMOÜLE" 
I-1 

PRIINTI 

IF T:53ü THEM GOTÜ SA 
I1I-I8t1 

sürü aga 

EHO 


új) TŰ 
[hai 


m bL 
DINID II ID 5 


Mm ÚT 


4] 


Ü) 


a/2. Vegyük észre: 
— Ilyen szervezés mellett a ciklusváltozó kezdőértéke O, hiszen most 
azonnal növelem eggyel. A ciklusváltozó értéke itt is 30-ig nő. 
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A folyamatábra : 


A program 
i9 PRINT SAIT 
2A PRINT TAB(1I50:" 
za I-ü 
4A 1-I61 
ae. PRAIBEFI 
GH IF I£2539 THEN GOTÜ 4 
7A EM 
Megjegyzés: 


—- A feladat többi része szerkezetében megegyezik az itt közölt programok 
egyikével. Ezért folyamatábrát külön nem közlünk. 


b/1 b/2 
1 18 PRINT!"i 
2 B(í51 2 PRINT TAB(152: "SZAMOLOT 
zi zm 1-19 
41 4 1-I42 
s THEN GOTÜ ZA sA PRINT I 
6 za IF 1I-4A THEM GŰTO 40 
7 7Aa Etn 
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c/1 c/2 


if PRIRHTVUJ4" i FENT" aT 

za PRINT TAB(iÍi52: "szaüLlűü" zü PRIHT TAB(izn:: "szaHOL 
38 1-3 s isa 

ZA PRINT I gű I-IiH.5s 

5 IF I5:-Aa THEM GüTŰ SA ni PRIHMHT I 

en I1I-I-A.Z eü IF 1-3 THEM GüTű ga 
7A BŰTN 4ür Tü EHE 

eü EHD 

d/1 d/2 

1 PERIRNT"AJ4" im FRIIT"ug 
sza PRINT TAB-(155: "SZzAMOLOT 28 PRINT TAB-(150: "SZAMOL 
zi I-ij zü 1-A 

3a PRINT I am 1-ií4im 

sA IF I:-2AüA THEN GüTMŰ ZA 58 PERINMT I 

ei I-ItiAn eü IF I-zAR THEM GüTű dAü 
Tü G5A0TAN 4Aa Tü EHü 

zi EhMD 

e/1 e/2 

iü PRIMT"VA4" PRINT"! 

zA PRINT TARB(150- "szaMüLa" RRINT TAB( iz: "szAHMOL 
aa I 

baja) THEr4 üüTŰ ZA Pi 

zi I GaTű dA 
7A GÜüTMN 4A EH 

sű EHD 


202. a) 
Vegyük észre: 
- Az ALMA szó hússzor jelenik meg a képernyőn, ezért a ciklusmagnak húsz- 
szor kell végrehajtódnia. 
A folyamatábra : 
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A program: 


BETMT VAI 

1-2 

ISIt1 

PETHT "AÁLHAT 

IF It2Eú THEN GüTU 58 
EHD 


49 E 1 EK 
mm mini 
ik9) 


m ng b 
ún jltsa ) 


b) 

Vegyük észre: 

— Az ALMA szót a sor annyiadik oszlopába kel! kiíratni, ahányadszor 
ciklusmag végrehajtódik. Így a PRINT TAB(I) használata célszerű. 

A folyamatábra: 
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A program : 


18 PRINT"AJ" 
en 1-a 
38 I-I41 
4Aa PRINT TAB( 137 "ALMA 
5A IF I-em THEN GOTO ZA 
RA END 

c) 


Vegyük észre: 

—- A páratlan számú sorokban az ALMA szó mindig az első, a páros számú 
sorokban mindig a harmadik oszlopban kezdődik. A PRINT TAB(X) hasz- 
nálata célsz  " 

— A feladat sze... szetében hasonló az előző két feladathoz. 

A program: 


I PRINT ág" 
ga I-ü 
38 1EI$4 
39 FEINT "ALMA" 
nd FEIMT TARCZ5F "ALMA" 
eg IF I-íiín THEM GOTM ZE 
TA EIN 
d) 
Vegyük észre: 
- A program csak minden páratlan számú sorba ír, tehát minden páros 
sor üres. 
A program: 
in FEINMTVUJ" 
ez I1-A 
3ű I-I-1 
3a FEINT öaBL.hin" 
ad FEIRHT 
kü IF I zi 
rá EMHÜ 


103. Vegyük észre: 
— Mivel 100 szám összegéről van szó, a ciklusmag, vagyis az összeadást 
100-szor hajtja végre a gép. 
— Ha a ciklusváltozó értékét 1-től 100-ig egyesével változtatjuk, akkor an- 
nak aktuális értéke megegyezik azzal a számmal, amit a részletösszeghez 
kell adnunk. 
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B B úM E 
mmnmmnpmm 


jú ! 


u 
ho) 


0) 4 am 
man 


í) 
o] 


A folyamatábra: 


A program: 


PRINT"4" 
PRINT TAB(S28" 


IF I-(i198 THEN GOüTG SA 
PRINT "AZ ELSŐ SZAZ 
Erin 


a) 

Vegyük észre: 

— Változtatnunk csak annyit kell, hogy a kiíró utasítást a ciklusmagba he- 
lyezzük, mert most a kiíratásnak minden egyes részletösszeg számítás 
után meg kell jelennie. 
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kH) 
el 


mm aFWmDIMDI 


al Mm I B fú TO 


re ÉL) ÚJ 
a mini 


ky lik Hl) 


A folyamatábra : 


A program : 


PRPEINT "44" 
PEIRT TBBÉSAF "ELSE SZAZ 


Vegyük észre: 
— A kiíratást feltételhez kell kötnünk. 
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oz 


A folyamatábra: 


A program: 


Halkan IK 


LETT 


IT4P 


83. 


104. Vegyük észre: 
— Célszerű úgy szervezni a ciklust, hogy a ciklusváltozó adja meg azt a 
számot, amelynek éppen a négyzetgyökét akarom számolni. 
- A szép táblázat érdekében a PRINT TAB(X) használata célszerű. 
"A program: 


FETT a 

PRINT TAB(í-(43F: "ELSO HUSZ SZAM NEGYZETGYŰKE " 
PRINT 

PRINT "A SZAM"; 

PRIHT TARCÉBJF "TA MEGYZETGYOKE" 


ÚT 


b 


4 0 


m ua 
ma IN IR DD DID TD FG 3 5 


ü 


thWT ő 


) 


109 "1F 1-0 THEN. GOTO 7 
28 END 


et 
he 


a tm bes I 


105. Vegyük észre: 
- Szervezhetjük úgy a programot, hogy a ciklusváltozó aktuális értéke egy- 
ben a hatványkitevőnek is megfeleljen. 
— Táblázatot készítünk, ezért célszerű a PRINT TAB(X) használata. 
— A kiíratás a ciklusmagba kerül. 


A program: 
13 PRINT"uJ" 
2 PRINT TAR(1A5:öHATSANYOK " 
3A PRINT 
Aazm IMPUT "A SZAMT FM 
na FRINMNT "KITESÜ 
BD PREREIHT TABÉCZOD2: HATAS JYB IT 
7ü I-X 
sk IzI4t1 
39 H--ztI 
198 PRINT Is/ 
119 
12A 
132 


106. Vegyük észre: 
- A kamat a bentlevő összeg 39/9-a. 
—- A következő évben a bentlevő pénzhez a kamat is hozzájárul. Így a 
kamat és a végösszeg számítása a ciklusmagba kerül. 


84 


A program: 


1ü PRIWT"44" 

en FRIRT TSB(CiII.F ETBERREKBETET" 

zü PRIHT 

aa IHPRUT "AZ OSSZEG" FF 

nd FRIMHT "A FEMZ EJEM isi 
EA IHIFIIT "HANY EVIG VOL 

vü T1-i 

SA 1-IiI-1 

ga K-FxHd. az 

li P-FP-K 

1 F T-E THEN GÖTŰ ZA 

1 FRIHIT EZTEV UTAM A TAKABREKBŐL KIVEHETŐ OSSZEG" 
1 PRIHT PFP: "FT" 

149 EHIN 


107. Vegyük észre: 
— A pontszámot öttel osztva és annak egészrészét véve az érdemjegynél 
eggyel kisebb számot kapok. 
— Érdemes a jegyzet számoló ciklusváltozóját úgy meghatározni, hogy az 
mindjárt a felső ponthatárokat adja. 
A program: 


PRINT" 
PRINT TAB( 
PRINT 


108. Vegyük észre: 

- Az eredeti program köré egy ciklust kell szervezni, ami számolja a fu- 
tásokat. Mivel az eredeti is tartalmazott ciklust, így egymásba skatulyá- 
lyázott ciklusokat kapunk. 

- Az osztályátlag számítását célszerű mindkét cikluson kívülre tenni. 
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A folyamatábra: 


START 


Is ISS 


N(I/5)et 


GAS 


Sa $ ay 


KR TELT 


A program: 


198 PRIHMNT"ug" 

zfü FRIMHT TABRÉSZ;. "nüLGÖZATÜK 
zi PRIHIT 

aa IHFUT "HANYSZOR FIISZOKM A 
aű 5-8 

Rü K-m 

7ű K-Kkii 

Aa PEIWT 

g 


in) 


4 hb hos bab bes ib rna (j) IT) 
2 0 Mm nm 
mi 


ez] B 
37 GűüTŰ 1AaNa 
aA íi5z-1 
ism I-I$H23 
irz IF A-I THEM 1í18A 
189 J-INT(I/5541 
1aa FF.IINT 
zHdAn PRINTAT:" EROEMIJIEGYE "7 
2if 55-56. 
2eü IF FőK THEM 7A 
z3ü Sz5.-/K 
248 PRINT 
zzü FRIMHTTA TBMHULUÜCSOPORT 5 
za ERŰ 


109. Vegyük észre: 


rm 


- A ciklusváltozót célszerű úgy felvenni, hogy annak aktuális értéke egyben 
az oldalak hosszát is megadja. A ciklus addig fusson, amíg a számított 
területérték el nem éri, ill. meg nem haladja az előre kikötöttet. 


A program: 


ii PRIHT "uj" 

zü FRIMT TABTim 28 "MEGYZETEK 
za PRILIT 

239  IHRFUT"SMHEKKORA TERI 
ne 

izdsi 

vin 11 

za I-A 

3 1-1iri 

i IF £:e 

11 
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noLGOZzZUNK KE CMTEI TA 


129 IF A--T THEN 159 

129 PRINT IFTAB(1L23:KF:TAB(Z253 FT 
13 GOTÜ 39 

158 END 


110. Vegyük észre: 

— Az előző programot úgy is bővíthetjük, hogy a végére egy kérdést te- 
szünk. A kérdésre adott választól függően a program újra indul vagy 
megáll. 

A folyamatábra : 


A program: 


im PRINT"A4" 

ea PRINT TAB(135: "MEGYZETEK " 

2ü PRINT 

4a INPUT""MEKKORA TERULETERTEKIG HúOLGÖZZÜNMK TÖHITtE2 "Fi 
aA IMNPUT "DOÜLGAGZZLIMK MEG" 478 

A PRINT TAB(12537 "KERÜLETÉ EÉM? "7 

TA PRINT TABfe553: "TERULET ÉCHtTE:" 

en I-Aa 


88 


Mese Le e se ál 1) 
-I Mm B í9 No ve ID) I 


— 
— 
— 


TÉt1 
a T-IHMHTÉItE? 
A K-A4XI 
Aa ÍF A7-T THEM 158 
Aa PRINT I:TABÉi253FKFTABÁÉZBI ET 
a sara an 
a EHB 
Aa IF V8$-"IGEN" THEM 19 
a EHO 


Vegyük észre: 
-— A feladat két, elvében különböző módon is megoldható. 

1. Minden percben pont az előző mennyiség kétszerese található a lom- 
bikban. Így egy cikluson belül az előre meghatározott értékig, a kért 
érték meghatározható. 

2. Figyeljük meg az idő és a sejtszám kapcsolatát! 

Idő : 123456 7 

Sejtszám : 1 2 4 8 16 32 64 

Ez pont: 210 211 212 213 214 215 21 6-nak 

felel meg. Ezt az összefüggést felfedezve a feladat ciklus nélkül is 
megoldható. 
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ha 


al Mm d xm u Tr 
9 gmDIDIDDI 


A dá est láss tés ús ÚT HÓ 
[9] 


[18 ) EAN SZENT AY ERR a 4 ELS 


A folyamatábra: 
1. 


A program: 
1. 


PRINT ua 

PRINT TABCSOA: SZHFORODO EGYSEJTŰEK " 

PRINT 

PRINT"AZ EGYSEJTŰEK SZAPA AZ ELSE PILLAKMAT- Eh 
PRINT"SZANMUK PERCENKENT MEGKETSZEREZŐÜDNIK." 

INPRUT "HANYADIK PERCBEM KIVANCSI A SZAMUKRA" FM 


371 
Iza 


I51t1 
Szz5Si 
IF I£X 
PRIHT 
IHIPUIT 
IF V4i-" 


Erd 


m 
] 


ve 
[43 


[ns llllhs ME) 
íj) 
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És td TO 
ho ss 


Dj 
ő 


nm 


AS; 


éz ús Új 00 


a 


fas 


B mM 


A folyamatábra : 
2. 


$"24(Xx-n) 


A program: 
2. 


PRINT!" 


FRINMT TAR(Z: 


PRINT 
ERINT"AZ 


INPUT "HANYA 


SEJTUÚEK 


PERCENHKENT 
DIK PERCBEN 
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EAN EGY." 


112. 


Vegyük észre: 

— A 111. feladat 1-es megoldását bővíthetjük tovább. 

— Egy szám osztható egy másik számmal, ha a hányadosuk egész szám. 

— Figyelni kell, hogy a ciklusváltozó, amely az időt figyeli, mikor osztható 
öttel (90—100. sor). 

A program a kiíratást olyan gyorsan végzi, hogy az nem olvasható. A 
lassítás egy ciklusmag nélküli ciklus beiktatásával érhető el (120—140. 
sor). 

A folyamatábra : 


A program: 


im PRIMHT"uJ" 
zA PRIHT TAB (823: "SZAPORODN EGYSEJTIEK " 
zAü FRIHT 
aa FEINT" EGYSEJTUEK sz8AMőMA AZ ELSO EGY ORABAN" 
AH S. 
SA 1-A 
TO 1-I6i 
JgA 5-Zxz 
gű K-IHNHTÉI.-725x2 
id IF K-API THEKH GOTŰ 127a 
118 55-52 
iga .T-A 
ízaü .1-.T-41 
í1g9A IF J-r75 THEM GüTű 17a 
159 PRIHT IF".FERC"FTAR(C(1223 75 
1Em iíF I-(ER THEM GüTű 7a 
ír EMN 
3.7 A tömb 
- DIM A (100) DIM A (100,25) DIM A (10,2,4) 


A tömb nem más, mint olyan elemek halmaza, amelyekről tudom, hogy hánya- 
dik helyen melyik elem áll. Ha 10-nél több elemmel dolgozunk, a tömb szá- 
mára helyet kell foglalnunk a memóriában. 

- A tömb lehet egydimenziós (ekkor egy egyenes mentén helyezem el a szá- 
mokat), kétdimenziós (ekkor egy síkbeli koordináta-rendszerben helyezem el a 
számokat), ill. lehet többdimenziós is. 

- A dimenzionáláson a program csak egyszer haladhat át. 


113. Vegyük észre: 
- Mivel a részletösszegeket utólag kell kiíratni, ezért azokat tömbben gyűjt- 
jük. 
— Az olvashatóság miatt célszerű a kiíratást lassítani (130... 150. sor). 


93 


A folyamatábra: 
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A program: 


BEEN "a" 
HIM 5-3953 


Ess me 0) 0 AN UT hü) ÓÓ 
NENMENADMNMMAMTAIIM 


í s 

A I £Z30 THEN GOTO 74 

A 1-8 

A IzI4i 

a Iza 

ARA J:J$tt 
158 IF J-(19AA THEN GOTO 148 
188 PRINT Is". RESZLEGOÜSSZEGt!":Z( 
ií7rA IF I-3A THEN GOTŰ 12 
18a EMU 

a) 


Vegyük észre: 

—-— Minden második természetes szám páros. 
—- Minden páros szám osztható kettővel. 

A folyamatábra : 


START 


DIM S (30) 
I:0 
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PRINT TAB(C(727 "ELSO HARMINE POZITIV 


A program: 


PRINT "4" 

DIM 5-3a3 

FRIHT TAB (75F"ELSÜ HARMINC POZITIV SzAM ÖSSZEGE" 
PRIHT 

1-A 


0 Ü) mi 
u 


— 
- 
a 

[EC e HL Mae] 

" 

mi I) 

x 

me 


129 5A-INTÉI/2.xE 


149 IF --X5I THEN GüTÜŰ 189 
159 PRINT I; ".RESZLEGOSSZEG";5(ÉI7; 
1em IF I-3A THEN GüTÜŰ 17 
170 END 
b) 
Vegyük észre: 
— 1,3,5, ... páratlan számok. 


- A páratlan számok nem oszthatók kettővel. 

-— 30 db szám közül a fele páros, a fele páratlan. Ennyi szám elfér egymás 
alatt a képernyőn, így mint az előző esetben, nem szükséges a lassítás. 

- A program szerkezetében hasonló az a) feladathoz, csak a kérdésfelte- 
vése más. ; 
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A program: 


18. PRIPE"EZT 

éd OIM S(393 

sd FRIHT TRBÁ(73: TELSÜ 30 FOZITIV SZAM ÖSSZEGE 
aa FRIMT 

e 2] zi 

BA szü 

Tét 15741 

eü S7-5Z6$I 

539 SíI53:5 

199 F I-39 THEti GOTŰ 7A 
$£19 z ízt 

hire sa] 


td na Je 
Min b úm N) mm z 
m 


1-4 
m : 
! 
Z 
mm 


c) 

Vegyük észre: 

—- Az index segítségével a tömb bármeiy eleme kiolvasnató. 

— Hibás adat, ha olyan indexű elemet kerestünk, amely nem szerepel 
tömbben. 

A folyamatábra: 

—- A beolvasó rész megegyezik az előbbi programéval. 


a 


A program: 


PERLNIT "íg 
DIMH 51393 


0) Mon 
h3 lo ] 


A PRINT TABíÍ7:F"TELSO 30 POZITIV SZAM ÖSSZEGE" 
4A PRIHT 

5Aa 1-0 

sa 5-a 

7A I-I61 

sű 5-8-I űj 
aA S(ID-Z 

190 IF I-(39 THEN GOTŰ 7A 

118 INPUT"HANYADIK ELEMET KERI!:A 

18Aa IF AZZA THEN GOTO 140 

130 IF ASZ THEN GOTO 180 

148 PRINT "ROSSZ ADAT" 

isa Goran 11ia 

1E8 PRINT AZT. ELEM!t:S(A) 

L7A IKHEUT"DOLGOZUNMK MEGTEFME 

1em IF VEZTIGEM!T THEM GOTO 118 

19aa EH 


114. Vegyük észre: 
— A feladat szerkezetében hasonló a 113. c) feladathoz. Ezért folyamatáb- 
rát nem közlünk. 
A program : 


19 PRINT "úg" 

isz DIM M(19gma) 

2Aa PRINT TAEfd:F "ELST I1RA FOZITTS SZAM MEGYZETE" 
38 PRINT 

ga I1-Am 

na M-A 

Ad I1-It1 

Aa M-IxI 

B MfI:-M 

A IF 


EBERT 


sek eb ak bob ma bek pa I) (0) 7] 


nm T 

FRIMT O XF" MHEGYZETET VEM(HO 
IHRUT"OOLGÜZÜTIK MEG" sz 

IF S3z-"IGEM"T THEM GOTO i1HA 
EMD 


115. Vegyük észre: Feet 
— Valós és sztring tömböt kell használni. j e 
— Minden tömbnek van nulladik eleme is. Ha a program sajátosságai ezt 
nem akadályozzák, célszerű ezt kihasználni. 
A program: 


im PRINT "ag" 

en DIM AF(I9gI 

za Diff 56ri9g. 

4 PRINT TAB(193:; "ZÜLDSEGLELTARH" 
nk 15-i 

en z-I41 

7A IMNFUT"ZOLDSESB NEVETFAB(I) 

88 INPUTTHENNYISEGETFAÉINY 

39 IF I£19 THEN GOTO 60 

Há zt szi 

117 zo" 

128 a): "MEHNYISEGÉKGI BB 
íz 

ída 

1508 8. 

izXa 

170 


116. Vegyük észre: 
- Nagyon jól használható a feladat megoldására a kétdimenziós tömb. 
— Az első tömbindex a napot, a második a zöldséget jelöli. 
— A leltárívek olyan gyorsan követhetik csak egymást, hogy azok olvashatók 
legyenek. 
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A folyamatábra : 


START 


Dt4 AB(S, 
DIM A (5,9) 


100 


E esD 


mg 


ÖGLTET 


J9JeI 


. rö ati 


Ter 


leedsi 


$H 


IC 19 


A program: 


189 PRIRHIT "d" 

cé HIM ASPTS 199 

8 et BESE, tag 

49 j1-n [1 

ad JEJt1 ! 

Ee3 PRINT "4 

7Tú FRINT THEY 1953: "züLDSEGLELTARN "7 d . HAFAJ" 
am 1--i 

ad I-II 

1a9 IMI T:i8 

rid 0 rXijF 

2 TF 

1350 HF 

149 T-ű 

194 4 

1em FRERIF 

íI7ű FRII LELTARTW I . MAPBI 
1a0 PR2 "2 THELZAT MEHNYÍZEG(KOL" 
199 17-11 

298 1lI-iti 

etű PRIRNH A5tS:ii? THERE RSENAJ dó 

sza IFT-i95 THEr. f€üT7TŰ A5 

cszú KEzg 

zad Kek 

ezi, 26 zgfi 

ösi ip 130 


117. Vegyük észre: 


— Egy szám előjelét tekintve lehet pozitív, negatív vagy nulla. Ezért három 


tömböt kel! felvenni. 


- Az index nem egyezik c mindenkori ciklusváltozóval, imint ahogy az elő- 


zőekben láttuk (130. . . 150. sor). 


- Jobban követhető a kiíratás, ha azt fassítjuk. A lassítást a J ciklusvál- 


tozójú ciklusok végzik. 
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A folyamatábra : 


DIM A (99) 
bis e (99) 
DI C (99)? 


102 


A program: 
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158. JE KSÖLJTHÉN CECSÁFOLETEK 
1e£g IF 1433 THEN GOTÓ 188 
Í70.Jsi 

izű J-J41 

igm IF J-2RA THEN GÖTO [aA 
za PRINT"! 
zi9 PRINT "POZITIV SszAMOK GE" 
eza 17--1 

zz8ü IzI-1 

Z48 PRINT A(IJF 
25ü ÍF I-A THEM GOTO sza 
280 Jzí 
e7ü J:J-Il 
282 IF J-2AA THEN GOTO z7A 
239 PRINT 

a 


389 FERINT"NEGATIV SZAMOK : " 
aid 15-i 

szem í5I41 

330 PRINT Bills 

zda IF I-R THEN GOTO zen 
and Jsi 

3869 Jz-zIT-4i 

z7ű ÍíIF J-2enAn THEN GOTO ZEA 
a99 PRINT 

3539 FRINT " WULLA:T 

gen 2-1 

aim ]-1-41 

szó FRINT Cre1js 

ázd IF I-T THEN GOTO 419 
449 EMm 


118. Vegyük észre: 
— Ha véletlenszárnokat generálok 1-ről! 2-ig; akkor az egyik megfeleltet- 
hető ag FEJ, c másik az ÍRÁS dobásnak. 
A totyamatábra: 
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Ja Je) 


A program: 


"DE IRAZ VOLT" 


119. Vegyük észre: 
— Az előző programot mint alprogramot építhetjük be. 
— Mivel ez jóték, izgalmasabb, ha a dobások közé hatásszünetet teszünk 
(140...160 . . .260 . . . 280. sor). 
— Az eredményt is jelezni kell (370 . . . 450. sor). 


— Adiunk lehetőséget a folyamatos úirajátszásra is (460 ...470. sor). 
program : 
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Ja 


ím 5 


K-Ad 

Kf-K hi 

IF K-ZiHA THEHrJ GOT Í5A 
IF --1i THEM GüTŐ zAA 
FEET "FEJ", 

cüaTO zi8 
FRIHT 7 7 a 

IF I-(Z THEH GüTű iíii19Aa 
ERIHIT 

FPRIHIT " HléfzZ Ehj ÚTBAZA Ibi: Bj" 


m an 


fo llls illo ils ll 


TTV) ek b já hant 
[dc ELN 4 RH 4 ERR ! 


83 
fh 


zA 


sző 
ken ] 
a 
[3 
Les 


K Zima THEM GAüTO zrü 
zaád MjTeRRiOTis;xkz: ai 
znn G- 
aid IF zg4a 
32űü PR 
330 Gü 
zgü PR 
zok ÉF ez 
ZER PR 
ara PR ált di 4) 
zam PR TJA IPI: "G 
ada 1F Jaz 
aan IF :T THEKM aza 
g1iü FR " SZEREN ER EKE ESSEK ÜITETLEBI" 
aza ad ; 
aza FR STER TEL" 
339 G0 


" RBBBBBEBEN NYERTEM" 


JATSZURMK MEGT EVE 


120. Vegyük észre: 
- A neveket és gyümölcsöket tömbben is tárolhatjuk. 
— A cserék mindig ugyanabban az irányban történnek, minder. gyümölcs 
csak egy hellyel kerül odébb. 
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A folyamatábra : 


DIM A$(3) 
DIM 8B$(3) 


A program: 


id FR 
20 HIM 
aa DI 
ad FR 22 "GYUHOLCSROOGRATA" 
ni I-X 
E I5fti 
TA IHPUT 
sk IMFi 
ada IF 3 

199 PRI 

1íi7 FRI 

za 1-a 

15 415131 

iga FRÍMWMT FFR(II BPÉIG 

t9k EF THEM GüTű 17 

i "HANYRDOIK CSERE UTANI HELYZETRE KIVANCSI" "za 


z E 
z I 
si I 
z I 
2ED PF 
z I 
289 END 


1. Vegyük észre: 
— Az oszthatóság csak pozitív egész számokra értelmezett. 

Ezért ki kell védeni a hibás adatokat. 

Az osztókat célszerű tömbben tárolni. 

Az osztók száma alapján eldönthető, hogy egy szám összetett vagy prím 

szám-e! Ezért célszerű az osztók számát figyelni. 

— A program addig fut, amíg meg nem találjuk a legnagyobb osztót, ami 
maga a szám. 
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A folyamatábra: 
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16 PRÁNMT "íg 

em PRINT "EBEFTETSZOLEGSES EGESZ SZAM OSSZES OsZTÜJRHE" 
an JI ATSO; 

ám IMHFUT "a SszAHIS EB 

56 IF B-ri THEM GÜüTÜ 7A 

eü IF E-IHT-(B? THEM GÖOTN AA 
Tü FRIN 9 z HURT" 

si [etni 

ati Iz 

18 J5-A 

iid 1-I-4i 

12A IF BXEPINTÁ(B/I3kxXI THEN GÖTÜ 158 
izű .J-T4ti 

igsA A(7I)-I 

159 IF I-B THEN GOTO 11m 
i1£E I-ü 

irü I-i-41i 

IS PRINT BEEE, 

1990 IF I-J THEN GOTM 17 
zün PRINT 

el IF J-3 THEM GATO 2£4Aa 
zza PRINT "OSSZETETT SZAM 
és BOTE Z50 

249 PRINT "PRIHSZAPI" 

258 EMD 


3.8 FOR...TO . . . STEP és NEXT ciklusutasítások 


Ciklusképző utasítás. 

FOR IMA BSTEPC 

NEXT i 

A két programsor közötti rész annyiszor hajtódik végre, amíg ! nem lesz na- 
gyobb B-nél, C-vel növekedve. 

Mivel a cikius futása akkor fejeződik be, amikor 1—B, ezért a NEXT utáni sor- 
ban vizsgálva 1—B--1. 

Ha C—1, a STEP C-t nem kell kiírni. 

Vigyázzunk arra, hogy nem minden IF. . . THEN-nel szervezett ciklus írhaió át 
FOR. . . NEXT ciklussál 


122. Vegyük észre: 


- A ciklusmagot 100-szor kell végrebejtárít 
- STEP 1-et nem kell kiírni. 
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Vegyük észre: 


— Az első kiírandó szám a 2, az utolsó a 100. Minden páros szárnot kell 


kiíratni. 
A program: 


b) 
Vegyük észre: 


— Az első kiírandó szám az 1., az utolsó a 99. 


számot ki kell íratni. 
A program: 


aa ad 

PRI 152: "SZAMOK 1-IBON 
aki FOR tt BB S8TEF 2 
ga FE 
zi MEAZT I 


c) 


Vegyük észre: 


Köztük minde 


páratlan 


—- Az első kiírandó szám a 100, az utolsó 1. Tehát visszafelé keli számolni. 


A program: 
im 
táj aj r  szrirtik 0 I1I-iIbEr EI" 
ezrei bt STES 53 
ás 
sznizi 
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123. Vegyük észre: 
—- A szorzatot számláló változó kezdőértéke 1. 
— A kiíratás a cikluson kívülre kerül. 
A program: 


Ha) 


PRINT "úg" 
PRINT TAB 


ma on úm o mm e 
ho IllÉ ht ll hó 
"TI TI 

[dna TER ! E 4 ER 

H 

jé 

"1 

e. 

. mi ) 

(4) 1) 
ís 


E) 


F-F3I 
MNEXT I 
PRIIÁT F 


o) 


a] 
2 


a) 

Vegyük észre: . 
— A kiíratás a ciklusmagba kerül. 
A program: 


s] 


BD CG 


m u bim e 
[3 
m 
[68] 
XI TI A] e tet eg 
1-4 7 
" 
jé 
sáj 
1) 
1) 
[et] 


a) 
z űj 
Ír 


s] 
re 

sa 
d. 


Vegyük észre: 

- Ha a STEP változtatásával dolgoznánk, akkor a gép csak minden máso- 
dik számot szorozná össze. 

— Páros a szám, ha osztható kettővel. 

A program: 


es 
pg 


44 


(5) 
HT ű a 


ob íj TU ra 
. 
"TI TI bab ad tg 


TI 


Hi 


hi 


séf 
Lm 
ín 
[hg] 


hi 


9 anna 


ra í7 
fa 


mm 


Vegyük észre: 
- Egy szám páratlan, ha nem osztható kettővel. 
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A program: 


1ü FRINHT "úgy 
za PEINHT TABÉZ? "ELSZ 34 FOZITIV SzAli SZÜRZATAHT 
39 F-i 
3Aa FüRi-1i Tü ZA 
ni F-F4iI 
Ed IF I-IMNT(ÉÜI SZESZ THEHi GűüTO ZA 
z7O PRINT I.F 
sA MEXST I 
d) 


Vegyük észre: 
— A ciklust csak addig az értékig kell futtatni, amit a használó kér. 
A program: 


1a PRINT "úg" 

za PRINT TABÉÍZ17 "ELSO 39 FOZITIV SZAM SZOÜRZATAH 
zin IMFIIT "HANYARDOIK ELEMET KERI"S:F5A 

ga F-1 

aki FÜORI-1 Tü 30 

eü F-FxI 

TA MEST I 

38 PRIRÍT. 6. F 

an Erű 


124. Vegyük észre: 
— Egy sor 40 karaktert tartalmaz. 
— 23 sort tudok kiíratni a képernyőre. 
- A feladat megoldható : 
a) A ciklusmagba 40 csillagot kiírató utasítással. 
b) A feladat végére END helyett végtelen ciklust írva, így a képernyőn 
nem jelenik meg a READY. 
c) Két egymásba skatulyázott ciklussal. Ekkor, míg a külső ciklus egyet 
lép, a belső 40-szer lefut. 
A program: 


ik 


ÚT 
[hg Elk Mllk 
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el 
asz 


ii ERINTO "úg" 
zAü FÜüK I-1i1 Tü 23 
34 PRI 
dai HE 
ni ad 
c) 
ia PF 
za FE 
a P 


s 


ma 


a 


125. Vegyük észre: 
— A feladat megoldható 
a) A ciklusmagba kiíró utasításba egy sornyi karaktert helyezek. 
b) Két egymásba skatulyázott ciklust írva, amíg a külső ciklus egyszer 
fordul, addig a belső 20-szor. 
A program: 


a) 


(5 


jen 


a ím 


t 


b o ü) MM 
[ei 


ún 
6 
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126. Vegyük észre: 


— Ha az I értékét használom az átlag számítására, ügyelni kell arra, hogy 
1—101. 


- A programot többször futtatva azt tapasztaljuk, hogy a véletlenszámok 
átlaga 50 körüli szám. 

A program: 

PRINT "44" 


PRINT TAB(CS37 "VELETLENSZAMOK ATLADA €1-id905ág" 


TU 


(a) 


- 


TI ú 
n DD n 
[60 E an lle mm 


[EI ) 


a na pg maman DRININD 


í 
IÍWNT "Hi VELETLENMSZAMOK ATLAGAG " ; 


in 


END TSNT Tv 1: EGON Ela, EL E 9 


MM — ( 
5) 8 ID 


127. Vegyük észre: 

- A gép 1-6 között generál egész számokat. 

— Az első ciklus (40...80. sor) kiírja a számokat. Itt nem a generált szá- 
mokat érdemes tömbben gyűjteni, hanem azt, hogy egy szám hányszor 
szerepelt. 

-— A második ciklus (90...130. sor) kiírja, hogy melyik pont hányszor sze- 
repelt, és számolja a dobások összegét. 

— Többször futtatva azt tapasztaljuk, hogy a dobások átlaga három körüli 
érték. 

A folyamatábra : 
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3 ig ma 


(4 


7) B! 


já, KGY § LYA) ERRE OL ET I 4 EL 
DD A 


e 
is 


kö! 


aes ÚJ 
ű 5 


úg ds 1) MM 


bé bé b 


eb sás én 


m 


8] 


fee 


het ke HÉ K ) 


ta öl 


yJ Di 


( 
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128. Vegyük észre: 
- A begépelt koordinátákat gyűjteni kell, hogy a játék végén kiíratva a 
játékos ellenőrizhesse a lövéseit. 
- A lövések számát jegyezni kell. Ezt az adatot a kiínató ciklus változójánál 
fel lehet használni (200—220). 
A folyamatábra : 


TALALT 


A "INT(RNO(I ha tajat 
B- INTÍRNO(I Juj 


A program: 
t PRINT "úg" 
CIM A(i1993 
DIM vf1l9A; 
PRINT TRAB(143; "TÖRPRECGGHHT 
PRINT "ABH GEF EGY 10x18-EZ Ja 
PRIHT "ájlis HAJOT KILOMI A KŐOORÜIHATAK MEGRDAZAR-vAL LEHET" 


E 


118 


4 
E) 
[4 
11 


non 
TT] ha tag bd 


TJ 


a 55 
misés 


Ti 


AIT ii 


129. Vegyük észre: 


- Első ciklus (50-80. sor) a tippek begépelésére szolgál. 
— Második ciklus a generált számokat állítja elő (100 . . 


. 130). 


- Minden generált számot össze kell hasonlítani minden begépelt számmal 


(140... 180. sor).Ez két egymásba skatulyázott ciklus. 
A hasonlítás menete : 

1. begépelt 1. véletlen 

1. begépelt 2. véletlen 


1. begépelt 5. véletlen 
2. begépelt 1. véletlen 


5. begépelt 5. véletlen 
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EL, . " 


Rap 


múl b5íWwme 
íz) 


Mm 


ún) no sa 


íg 


A folyamatábra: 


A program : 


PRINT "úg! 
PRINT TAR( 
AB 


"LÖTT EHÁRTEZ" 


KEREM Az ÜT 


FOR Z-i PT 8 


mi 


(80) Gé s-IENL EG ERB 1 a ELO ko ) 
AYDE 


1 e9 Vili TAG VEN VEGY CT VIG VÁ TAT MERNN TAG" VERT VON VENNI PEN IRT PGY TENNT TE 9 
( m 
[oj 


val" 


130. Vegyük észre: 

- Tízes számrendszerből más számrendszerbe való átírás euklideszi mara- 
dékos osztással történik. Menete: A tízes számrendszerbeli számot 09. 
osztom az új számrendszer alapszámával. A  manadékot megjegyzem 
(A(—M). Ha a hányados (B) nem nulla, akkor azzal mint tízes szám- 
rendszerbeli számmal az előző műveletet hajtom végre (X—B). Ha a há- 
nyados nulla, a maradékot fordított sorrendben kiíratom (140... 160. 
sor). 

A folyamatábra : 
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ke JES b 1—6 a eb ea ma) 0) am) bh) MM e 
DN MEROADHEDHMmMMDIWNMŐŰD 


(2) 


fe É 9 
am w 


ka eb mb feb ab je b b s mk É) (0 1 0) ül Kh úd MV 
ny ir imninbpmMmMEEDHAHAADMNYMDIÜ 


[hc ll hi lk? llltsa Mo 


A program: 


PFRINT "ul" 

PRINTTAB (193, "SZZAMREHOSZEREK HI" 

INHFUT "HIBA TIZES SZAMREMDSZERBELI SZAf4" FA 
DIM A-(i1aA: 

I-9A 

I-I41 

B-INT(A-/23 


ACI3-M 
t IF B-A THEM GOTO 178 
A KEB 
a GoTO BA 
z PRINT "A SZAM KETTES SZAMRENDSZERBELI ALAKJA:IET 
a FOR J-I TŰ 1 STER -1 
8 PRINT A(JD 
A NEXT .J 
A END 
8 PRINT TABCS5: "HR LÖTTOMTEME TALÁLATA SANT 


PRINT "Lp" 
PRINTTAB- 193. "S5zAH 
FRIHT "EEBBBEMIBIi 9 
IMFUT "Hi T s 
IEIPRIÍT "EF SZ 
DIM A(C(199aI 


I 
Ar 


fra Hl? ML ) 


[49 llttő ) 
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132. Vegyük észre: 

- A tetszőleges számrendszerbeli számot célszerű számjegyként bekérni 
(80 . . . 100. sor). 
Ahányadik helyen gépeltük be a számjegyet, a hozzá tartozó helyiérték 
az alapszám ennél eggyel kisebb hatványa (120. sor). 
A tízes számrendszerbeli számot megkapjuk, ha az alaki és a helyiérté- 
keket összeszorozzuk, majd a szorzatokat összeadjulk (130. sor). 
A folyamatábra: 


FOR I"0 
TO Y-1 


He(Y-1)-I 
S. S0A(LJaXtH 
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A program: 


133. Vegyük észre: 


— Két, három elemmel már végeztünk rendezéseket. A tetszőleges elem- 


17 FRINT "ú" 

en PRINT "ERBEBEBBBEZAHREHUSZER BI" 

39 FRIHT "EEBBBBITETEZŐÜLEGEZSEÜL TIZESEEH" 
aa INFUT "AZ ALAFEZATIT Em 

sk IMHRUNT "HANY SZAMJEGY "BOL ALL A EZATÁT EY 
sű NIM Hír? 

7TA PRINT "KEREM A SZAMOT SZAMIJEGVEKMKETT" 
eü FOK I-ű Tü "v-i 

aA INPUT AfI2 

199 NEXT I 

119 FüR I-A hág vY:3 

12zü H-ív-15- 

139 5-S$(A€TI5Xk5TH 

iígd8 MEZT I 

150 PRINT "BA SszaAM TIZEZ SZAMREKHOSZEREELI 
189 PRINT 5 

17Aa END 


szám azonban új problémát jelent. 
- A feladat megoldására két ismert módszert mutatunk be: 


1. Buborék módszer: 


- A feladat legalább két rendezendő elemet tételez fel. 


— A rendezendő elemeket tömbben célszerű tárolni (70 . . 


—- A rendezés menete : 


Vesszük az első elemet. Ehhez hasonlítom a másodikat. Ha a második 
vesszük a harmadik elemet. Ha a 
második elem kisebb az elsőnél, a két változó értékét felcseréljük, majd 
vesszük a harmadik elemet. Ezt folytatjuk az N. elemig. Ezután a má- 
sodik elemet hasonlítjuk a hanmadik, negyedik stb. elemhez. 
algoritmust végigjátszva, az elemek a megfelelő helyre kerülnek. A 
kisebb számok a kisebb, a nagyobbak a nagyobb indexű helyekre ke- 
rülnek. Ez a mozgás hasonlít a különböző sűrűségű részecskéknek fo- 


nagyobb vagy egyenlő az elsővel, 


lyadékban való mozgására. Innen a módszer neve. 


A folyamatábra : 


. 100). 


Ezt a 


FOR Jelet 
TON 


Xa4A(I) 
A(I)]"A(J, 
A(J)5Xx 
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A program: 


mm 


ee min a b íú MM e 
DN EDD 


) 
In DID 


5 Da min 


íg) 


[ró lo 


VE) 


jö 


mine em 0 B 0) Mm 


a 


UMNVN TŰ s km mt b leb s s e e [/ 
in 


új mm — DD 
IE ma 


0) 


FRIITS.4" 
FREINTS SZAMUK knlebésemmss SüRKRENDBE HBENDEZESZSE (i45ri1i2§gp" 
RROIÍJT " HÉRÉRERER ESEK EH 
TNESÉHTT Hatirv vvágárrmeág 
F THEii PRIHT" 


tIMIT" HIIBKEREM 5 REMDEZENMDŰ ELEMEKET" 


MHFi ig 

MEXT I 

Für zi Tü HMH-i 

FOK J-Ií41 Tü Hi 

IF Af3155-AÉIi. THEM GüTű ií7rA 
HERÉI: 

AI sz-AiJgs 

a HL éb b 

MEZT J 

MESZT I 

FRIIHT""§BHR EESEFRFELT SZAMUK MÖVEKVvŰ SÜRRBEHMŰBEIÁH" 
Fük 1-1 Tü iJ 

FRIMT íF" SZriMmt AC IZ 

HEAT ii 

EHIN 


. Szomszédos elemek cseréjének módszere: 

- A feladat legalább két rendezendő elemet tételez fel. 

—- Az elemeket tömbben gyűjtjük (80 . . . 110. sor). 

- A rendezés menete: 
Egy ciklus segítségével elvégezzük az első és a második, a második 
és a harmadik, a harmadik és a negyedik, ... N-1 és N. elem ösz- 
szehasonlítását, szükség esetén cseréjét. (130... 190. sor). A program 
fontos eleme a kapcsoló (K), amelynek kezdőértéke 0. Ha a cikluson 
belül végrehajtunk egy cserét, K értékét is megváltoztatjuk. A ciklus 
végén, ha K értéke nem nulla, a K-t lenullázzuk, majd újra indítjuk az 
összehasonlításokat. Ha K értéke nulla, ez azt jelenti, hogy minden 
elem a megfelelő helyen van, csere már nem történt. 
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A folyamatábra: 


A(I) "A(Ie1 
AlZe1) sax 
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DD 


0) TU 


b 


ún 


al m 
DDDDRDONRMDWDID 


me [j) O) 


min kö ülm e 


0) "1 


nm 
[o lt ho JR EN h3 RL ho Er Ell ko BELL 


FT TÜ TV TV TV TV ték e eb já dób Is jet 


u bí mM eg 


Hl 


A program: 
PRINT" 


PRINT "Szatdük iiüveEK SÜRREINDBE TES ESSS e b íh4s 
s 


PRINT" SZŰMSZEDÜ 
INELUT HANY ELEMET 
1E HÁZ THEN FERIINT E 
DIÍIMH AC: 

FRINT" HEKEREM 5 RENDEZEKHDŰ ELEMEKET" 
FOR izi Tü N 

PR INT ELT 


: GüTú dü 


a IMPŰT R(ID 

a MEXT I 

a Kedd 

ki FüK I-zi Tü M-i 

0 1F BÉIEIJ ZATI: THEN GÜjrG LHH 
szatI: 
FERT ASATT LÓ 


REIT12-K 


118" 


I Sza TH 
F ik EM a) MűvEKZü SÜRRENDBENEH" 
FOR .I-1 T 

fi PEINT 1". SZAMTFAEI. 

A MEXT I 

ü Er4ü 


Vegyük észre: 


— A probléma megegyezik az előzővel, csak itt sztring típusú változókkal 


kell dolgozni. 
1. Buborék módszer: 
A program: 


PRINT"AZ" 
PRINT"NMEYVEK HE" 


FR IPJT " BEER EN EE EN EN 
I VESS Te HAatjyY MHEVE 
Sz THEN FRIHT" "KOSSZ (ADAT? : GüTi gű 
Cl Gő és 
" ERR EREM A REHDNOEZEKiüű NEVEKET" 
zi o Tig hi 
TE a 08 
FECI 
i 
isi Tü M-i 
jziái Tü Hi 
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ft dá ési 
ÍS 


9 Ún B 
Ú 


3 


mi 
z 


1-4 


1 
3 3 
1 

(zá 

z 

e 

Ez 


u) Mm or 
mm) 5 iz 


ra 


. A szomszédos elemek cseréjének módszere: 


DN 


program: 

FETT "ea" 

BERENT "TE BE 
FR LE 
IhJ nala 
1F Rü 


ar 


BENDEZERMEG HEVEKRKET" 


tan 


í 
17 ai 
idő 1F I $£(15 THEN GÖTŰ 138 
(58 KEzNE(I; 
(Ed APY(ISzABÍI4iÓ 
í7O AR(I4ijzEE 
180 Kek 41 
ig8  MEXT I 
zem IF 
18 PRI 
z FOR 
z PRI 
z MHEK 
ETD 


135. Vegyük észre: 
— A menü eljárással már foglalkoztunk. 
— A feladat két részre bontható : 
1. Az író neve szerinti vizsgálat: A 
Egy íróhoz több könyv is tartozhat. Ezért célszerű a megtalált könyve- 
ket tömbben gyűjteni addig, amíg a keresés be nem fejeződik. 
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€X$(1)). K értéke megmutatja, hogy hány könyvet találtunk. A megta- 
láít könyveket ki kell íratni (230 . . . 330. sor). 
2. A könyv címe alapján: 
Mivel egy könyvhöz csak egy szerzőt rögzítettünk, ezért biztos, hogy 
ha megtaláltuk egy könyv szerzőjét, tovább már nem kel! keresni. A 
megtalált szerzőt ki kel! íratni (350 . . . 410. sor). 
A folyamatábra: 


A program: 
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136. Vegyük észre: 
— A begépelt adatokat tömbökben tárolhatjuk (80 . . . 130. sor). 
— A menütechnika már ismert (150 . . . 240. sor). 
Név alapján történő lekérdezés (250 . . . 300. sor) 
Lakcím alapján történő lekérdezés (330 . . . 460. sor) 
Telefonszám alapján történő lekérdezés (410 . . . 460. sor). 


Mindhárom esetben egy névhez egy telefonszámot és egy címet tételezünk 
fel. 


- A program tetszés szerinti futást engedélyez. 
A folyamatábra: 


DIM A (N) 
DI B3(N) 
DIM CS(N) 


ind mm 


Mm -rmnmin ki e EV DNEA NM EINDDMDANIEmBD 


JAEARDEFDHFNADADMDAMINID DM IN ID ID IZ 


bí) M nm mí) 


mű DC 


ast 


ho h.h MA (4) (4) 0) íú e) d 0 TŰ TVT TD TVT Ae tetek békét a (e MNK id 0 


mM IR DM AM 


IX 


A program: 


PRINT"AJ" 
PRINT" BEBBEBBERSETELEFOKHREGISZTFROEZHIT 
IHPUT "HANY EHBER ADATAIT ROÖGZITJUK "EM 
DIM AFÉNI? 
DIM ESÉÍRI 
DIM C$HíÉNM: 
PRIHMHT"BKEREM SZ HAORTOKATH" 
FüR I-1 TO N 
IMNPUT"MEVE "FESRE-I 
IMPLUT LAKC IME ki 
IMPFUT" TELEFONSZÁMA 
FRIHT 
NEXT 1 
PESBIT "ag 
FRONT" BERRREESJEL IK SUÚST ALAPJAN DÜLGÜZHIMK 7 HE" 
PETINT "ta HI " 
REAT "Za. IL 
Éséje 


[xy lén Ill os ll ho ho ! 


HDEgmnamnmn 


3 öl) 


3.9 READ, DATA, RESTORE 


— Összetartozó utasítások. 
A gép a READ utasításra a DATA után következő adatokat változókban helyezi 


el. 

Ahányszor a program READ utasításhoz érkezik, mindig a következő adatot 

olvassa be. 

— Ha több a READ, mint az adat, a gép hibát jelez. 

A DATA a programban bárhol elhelyezhető. Általában a program elejére vagy 

végére teszik. 

Ha ugyanazokat az adatokai többször be akarjuk olvasni, a RESTORE utasí- 

tással az adatok elejéről kezdhetjük az olvastatást. 

- A DATA után bármilyen adatot elhelyezhetünk (sztring, valós...). Ügyelni 
kell arra, hogy a READ utasításra a megfelelő változóba gyűjtsük az adatokat! 


137. a) 
Vegyük észre: 
— Több adatot helyeztünk el a DATA-kban, mint amire szükségünk van. 
— A változók feltöltése 30... 50. sorban történik. 
— A tömböt nem szükséges dimenzionálni, mert csak 10 eleme van. Próbáld 
ki úgy ís a programot! 
A program: 


Vegyük észre: 
— 10 adattal kevesebbet helyeztünk el a DATA-kban, mint amennyire szük- 


ségünk van. 
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— Használjuk a RESTORE utasítást a húsz meglevő elem beolvasása után! 
— A feladat többféleképpen is megoldható. Pi: 
1. A ciklus 30-szor fut le. Minden futás után vizsgáljuk, hogy elértük-e 
a 20-at. Ha igen, RESTORE. 
2. Két ciklust alkalmazunk. Egyik fut 20-szor, a másik 21 . . . 30-ig. A ket- 
tő között RESTORE. 
A programok: 


4 8 
19 PRINT"ú4" 
28 PRINT " HERESERENE ERR KSE ATA Gyak FL ÜK" 
a DÍM AÁCL3RI j 
4 FOR I-i Tü Zz8 
30 RERO AfI3 
BO IF I-:28ü THEN GOTO 82 
TA BRBESTORE 
SA MHEXST I 
a FüR I-zi Tü zkü 
in PRINT (I) 
1i0 MHEXZT I 
128 ERTE  1:Szőzüsörözi ;é:dzi9 
iS58 DATA LÍ-5S-i13. 8.15 5185Í7 18-15 5E0 
1348 EíMD 
2. 
íz PRINT "ug" 
2A PERITHIT" HRRBERREEINEEEEN ATA Gyak üFLDOHR" 
zü OIMH Ar(3AI 
aa FOoüR I-i TŰ ZA 
20 REHÜ AÉI2 
sű MEXT I 
7B RESTORE 
en FüR I-2zi Tü 38 
389 RERO ARCI3 
inf MEXT I 
118 FOR I-i TO 238 
lie8 PÉIIWT ACT: 
í3a MEXZT I 
14m OűOAzTA 1 
isk ORTA 1 3,153 28 
ism ERT 
c) Vegyük észre: 


Az első öt számot kell becivasnunk, így minden ötödik beolvasása után 
RESTORE-t kel! alkalmazni. 
— Akkor olvastuk be az ötödik számot, ha a ciklusváítozó osztható öttel. 


136 


Mindhárom feladat esetében a beolvasás és a kiíratás is történhetett volna a cik- 


luson belül. 


A program: 


w 


5 FŐRE 


ii FE! 


Éz 


138. Vegyük észre: 


héz algoritmust 


ősen ne 


lehet. 


sára meg 


á 


—- A hónapok hosszának megállapít. 


t sztringváltozók 


találni. 
— Célszerű a hónapok nevét és hosszát is DATA-ban tárolni. 


is 


í 


g én 


ezer 


— Mivel a hónapok hosszával nem számolunk, 


kezelhetjük. 
— Az alapfeladatban nem vesszük figyelembe a szökőéveket. 


A program: 


[oj 


gr 


437 


139. Vegyük észre: 
— Az INPUT utasítások előtt célszerű kiíratni, hogy milyen tantárgy ered- 
ményét várja a gép. 
-— Vigyázni kell arra, hogy a magatartás és a szorgalom nem számít a ta- 
nulmányi átlagba! 
— Ha valaki bármilyen tantárgyból buikik, az átlaga 1. 
A program : 


PRINT "úJ" 

PRINT" BRBRESSBBBEBBEEK TLAGSZAMI TON" 

DIMH AX(135 

FOR I-1 Tü 13 

RESD AP-(I) 

zi MEXT I 

7 IMPRUT"BHA TANULÚ NEVE "EME 

A PRINT"BKEREM A TANULO FELEYVI JEGYEIT !H" 
aA FOR I-1i1 Tü 13 

HA PRINT AF(IJF 

íg IMPUT J 

em IF J:5 THEN GOüTŰ 1 
IF J-i THEN GOTMŰ 1 
IF J-INT(J:; THEM G 
PRINT"ROSSZ ARORT" 
IF J-1i1 THEN Az1i1 : GOÜTŰ ZIL£ 


mi 
Ül) AZ ú 
md kr 


PRIWHT 

PRINT M8;" TANMULHARNYI ATLAGA TER 

EHD 

URATA MAGYAR NYELY,MAGYAR IRODALOM, OROT 
DATA TÖRTENELEM.FOLORAJZ , MATEHATIKA LF k 
DATA BIOLOGIR,; TECHNIKA RAJZ , EHEK , TESTNEYVE 


BOT em e 


MTÜMM I TD Ke a b b E e lés ma 
új új 
PDA NEDRDDNDIN IN I 

D 

"I 

(1) 

a 

ú me 


140. Vegyük észre: 

— Az egyes címletek generálása helyett célszerűbb azokat DATA-ban tá- 
rolni, és onnan kiolvasni. 

- A címletek értékével számolni kell, ezért azokat a kiolvasáskor valós vál- 
tozóként célszerű kezelni. 

— Célszerű csak azokat a címteteket kiínatni, amelyek darabszáma nem 
nulla. 

A program: 


PRINT"? 

FRIMT TAB(1537 "CIMLÉTEZOHÉREI" 
DIM A(12) : DIM B(123 

FOR I-1 TO 12 


hig me 
DIX DI 


138 


adi pré §€ 


ALETEZÜ HEETEI" 


L (u 


a-d 


THEN 


-A 


141. Vegyük észre: 


- A feladat egy emberről három adatot tárol (név, lakcím, telefonszám). 
— Lehetővé kell tennünk, hogy egy adat ismeretében a használ 


ik 


o a masi 


, 


két adatot is megkapja. 
— Ha a DATA-ban levő adatokat bővítjük, a tömbök dimenzionál 


is 


ásán 


, 


változtatni kell! 
— Feltételeztük, hogy minden névhez egy cím, egy telefonszám tartozik. 


A program 
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A IF X-i THEN GOTO zza 
A IF X-2 THEM GOTŰ 318 

A IF X-3 THEN GOTO 398 

A FRINTTILYEM LEHETOSEG MIHCSZ" 
a sora 138 


[Ki 


INPUT"A NEW":BE 
FOR Izi TOM 

IF BE(I:3-E$ THEN GOTO 230 

MEMT I 

FRINT"NINCS REGISZTRALSAT 

GOTO 48A 

PRINT BE:" TELEFOMSZAMATFAGIÓET CIME "FCH(II 
GOTO 489 

IHPUTTYA LAKCIMTECS 

FOR 1-1 TO NW 

IF C$(I53-C£ THEN GOTO Z7A 

MEXT I 

PRINT"NINCS REGISZTRALYA" 

GüTO 4eA 

PRINT E$(I3:" TELEFONSZAMAT FAKIDE" CIME 
GOTO 45A 

INPUT"A TELEFONSZAM!EA 

FOR 17-i TO NM 

IF A(ID-A THEN GOTO 45A 

MEXT I 

FRINT"MINCS REGISZTRALYVA" 

GOTO 458 

PRINT BE(IDd:" TELEFONSZAMAT GAKIJSZT CIME "FCEKI; 
INFUT"DOLGOZUMK MEGT EVE 

THEN GOTO 138 


NADDMAA 


2 


[do [ll MlLro ) 


m 
tt 
vi 


ARaRHADBDDWDKMmMmIWIDIN 


mm 


mo 


a 
fa 11122 
a 31122 
li. 8, 12554 


en en b bh kh B b .BR.BhBRWAYWVWŰ LNN NMNM MI mr 
Meg amin BV ED ADN E VMEEDMEMÜŰ LIII mü ág 00 


5) im 


142. Vegyük észre: 
— Annyiban különbözik az előző feladattól, hogy egy íróhoz több könyv i 
tartozhat. 

A program: 


PRINT" 

M-g 

PRINT" EBBBHERBEEERENE ügyv TES v"zEK BIE 
DIM AH(NMI 

DIM BET 


0) HNLY En 4 ELS 
Mm Hg DIR DD 


me 


140 


16 
§ 
j Úr 
138 SORT ALAFIAN DOLGOZUNK 78" 
idd FERINT"VI.AZ rpa HEVE " 
isa FRIHT"SZ.6§ KÖpvv CIMERT" 
isi IIMPIIÍT A 
174 iíF -/—-i THEHMj GüTÜ 217 
ízű IF --£2g THEN G0üT0 3398 
iga FE TUT"AITL TEN LEHETOSEG NINCS" 
zün süTű 138 
219 INPUT"AZ IRO NEVE ":As 
zA FOK í-i Tü Hi 
za IF AZ-Z-AFRTII THEM HüTŰ 2RA 
Av K-zk 41 
aki szeEFÉfI; 
: I 
IF K-M THEN FRINT"SfJIMES 6 KATALOGIUSERANT" :GűüTŰ 49gA 
FRINT""KOülírvE I: Hű" 
FOR I-i Tü K 
FESINT SEE12 
MENT I 
züarTra gan 
IHIRUT"SA Külívv CIME"ST7FES 
FüR I5-zi Tü Hi 
IF B3-EZ-Í(I? THEjiú GÜüTŐ Zz-Xd 
MHEXAT I 
PEIGIJT " gJIties 6 KATRLÜGIISBAN 
GüTa aan 
FEINT"S"AZ IROJA :Apti1: 
IMFLT " HO GL.nziütük MEGV VE 
IF S74-"IGErMj" THEM cGűüTŰ i1z£ 
EH 
naáTra gű 
úaTA FEl 
üsTAa FEt 
ÚATA HII 


143. Vegyük észre: 
— Egy kazettán több program lehet. Az is fontos, hogy az adott program 
milyen fordulatnál található. 
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A program: 


18 PRINT"IJ" 

za H-g 

38 PRINT" "HERBEBPROGRAM KATALOGIJSHIT 
49 PRINT METFROGRAHOT ROGZITETTUNKAI" 
sa DIM AE(MI 

za OIM 

7A DIM 

em DOIM 


98 
eg Ms: ! 
mo 
D 


F-b pa pb 1—s 
[3 
m 


am RTV nm a 


mm ea 


ta RESÜ 

a MEZ 
32 ME; 

far : zd 


7) 
T) 
A] 
4 
3 


JAELYIK ADAT ALAFIAM DOLGOZÍIMK 7 ág" 
BR HT ő KAZ ETTA HMHEGMEVEZESE" 

PRINT"2. A PROGRAM NEVEM" 

szábdlta IT A 


ja éj 


[o] 


id DD 


TO OTOTÜ A ő eek feb bob et 


PRINT" ARILYEN LEHET 
nüTraú rna 

IUPIIT" B KSZETTA MEGÍINEVEZEZE" § 
FOR I-i Tü fi 

IF A$X-:-AFRÉII THEHhi üTA 3AA 


(3 TU a 9 új) 0 


ni .n 

HD HXIDO 
D 
tt 


[4 lo) 


9 ERGLI 9 ELEN RL KG ERR JEG 04 Lp 0 ERB 14 EL a 4 ER LU ELV ER UA 


aa SzEEr(I 

aa ís b 

ma I 

im IF K-m THESI PRIMUT "EJT CS 5 KATALUGUSBAN " : GÜüTÜ 
2Aa PRIHT"A K as gmab nak : Eg" 

zü PRINT "PRO FOROULATSZATAH 

Jr 


4 .h Ú 
B ü 
5 a 


18 

428 HIJIHCS A KATALOGUZEAKI 

g3ga A 

448 A KAZETTA FAF(I 


4358 PRINT"A FOROULATSZAM "EEÉ(I3 

g36a INPIT" MOL GÖZÜÍNK MEGT FV: 

árű IF vV84-"IGEN" THEM GOTÜ 159 

aaa Enmin 

aga úATA TOKI,SZAHREINDSZEREK ( 19-23 ,912,AGFA ,NEGYZETEK , 976 
züd ATR TÖKI,TERÜLETSZAMOLO , 993 , SANTO , NEGTZETEK , 234 

3i1iAa ÚRTA AGFA,SZOVETARAZÚ , 328 , TÜK2 , EGYSEJTUEK. , 288 

ze ORATA  TÖKI1I,üHIM TÖRVÉNYE ,328 , TDKZ , ELLEHALLAZ , 353 

3.10 GET A$ 


- A$ helyén bármilyen sztringváltozó szerepelhet. 

— Az utasítás hasonló szerepet tölt be, mint az INPUT utasítás. 

- Mikor a program futás közben a GET A$ utasításhoz ér, az A$ változó felveszi 
az abban a pillanatban megnyomott billentyű karakterértékét. Ha abban a 
pillanatban éppen nem nyomtunk meg billentyűt, A$ értéke " " lesz. A GET A$ 
tehát nem várakozik, csak az adott állapotot figyeli. 

-— Az előbbiek miatt A$ értéke mindig csak egy karakternyi lesz. 

— Játékprogramok, kapcsolókkal ellátott programok nélkülözhetetlen eleme. 


144. Vegyük észre: 
- Ha a program a GET A$ utasításon csak egyszer halad át, igen nehéz 


eltalálni a megfelelő pillanatot a billentyű lenyomására. 


— Célszerű olyan végtelen ciklust alkalmazni, amely egészen addig vissza- 


tér a GET A$ utasításra, amíg a feltétel nem teljesül. 


A program: (csak a C— billentyű lenyomására fut továhb!) 


"4" THEM GOTO ef 


145. Vegyük észre: 


A 


ÚN) 
mmm 
va 17) 


A feladat hasonló az előzőhöz, csak most a feltétel, hogy A$ értéke " "- 
tól különbözzön. 
program: 


HE 
asz" THEN GüTŰ 2A 


146. Vegyük észre: 


Egy képernyő akkor , lapozható", ha a használó dönti el, hogy az adott 
képernyőtartalmat meddig hagyja meg és mikor kéri az újabbat. 
Ennek megoldására jól használható a GET utasítás. 


-— A feladat megoldására két lehetőséget mutatunk : 


1. Egy ciklust alkalmazva, és a cikluson belül figyelve, hogy a ciklusvál- 
tozó értéke mikor lesz 20, vagy annak többszöröse. 
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2. Két egymásba skatulyázott ciklust alkalmazva. A belső ciklus hoz létre 
egy-egy lapot, míg a küiső ciklus biztosítja, hogy öt lap készüljön egy- 
más után. 

A programok: 


1. 
12 PRINT!" 
28 PRINT! SZORZOTABLAR" 
22 IMNPUT""MELYIK SszaPPRAL DOCLGOZÜNMK "EK 
ag FOR Iz1i Tü 1AA 
sű IF I-SINT(I/EZJXZA THEN GÜŰÜTŰ 38 
Bü BET AZ 
TA IF Aszt" VHEN GOTŰ SA 
29 PRINT IFTAB(ZMIJ EI AK 
SA NEXT I 
189 EH 
FA 
1A PRINT "AJ" 
28 PRINT " HIEHENBERENEHEE BEI 7 ORZOTABLABI 
380 INPUT"TMELYIK SZAMMAL DOLGOZUNK OTF 
4A Az-i9 
5A B-A 
55 FOR J:ti TO 5 
58 PRINT"UJ" 
57 PRINT"SZORZANOD " :TAB(2R); "SZORZATH 
Ra A-AIZA 
7ü B-E4ZM 
ZA FOR I-A TO B 
aa PRINT I:-TAB(Z2A0:XxI 
in8 NEXT I 
118 BET AR 
izm IF S4-"t" THEtrJ GűüTO 119 
139 MEAT .J 
14a END 


.11 Időmérés számítógéppel íÍTI és T1$) 


A TI és a TI$ a programozás szempontjából foglalt változónevek. 

TI$ a képernyőre kiíratva mindig egy hatiegyű szám lesz. Megmutatja, hogy 
a gép bekapcsolása óta mennyi idő telt el. Az első két jegy az órákat, a má- 
sodik kettő a perceket, az utolsó kettő a másodperceket mutatja. 

TI kiíratásakor egy legfeljebb hatjegyű szám jelenik meg a képernyőn, ami a 
bekapcsolás óta eltelt időt hatvanad másodpercekben közli. 

Ha nem arra vagyunk kíváncsiak, hogy a gép mióta működik, hanem időt sze- 
retnénk mérni, akkor a T1$-t le kel! nullázni. 

Mivel TI hat karakter hosszú sztringváltozó, ezért a nullázás T11$— "000000" aiak- 
ban történik. 
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147. 


irat 


B 0) HM 
mm a rna 


a 
Éj 
09 


08) ER CRL KS E Lt EL 
mm RaDImIimD 


m 


3) 


fe 
f. 


2 
a. Én Jr bd tet 


Vegyük észre: 

— Ha TI-t csak egyszer íratjuk ki, a program nem adja folyamatosan az 
aktuális gépidőt. 

— A kiíratás csak akkor tűnik óraszerűnek, ha az aktuális gépidő mindig 
a képernyő ugyanazon heiyén jelenik meg. 

A program: 


PRINT"IJ! 


PR OIHJT " BEHENHETEJETETETETSISÍZETET EK FILLAKHATTÍYI GEPIOO "ETIS 
RRINHT "Eg" 


Vegyük észre: 

—- A stopperórát indítani és megállítani is lehet. 

- A mejelenített képnek óra hatást kell keltenie, ezt úgy érjük el, hogy 
az időt mindig a képernyő ugyanazon helyén íratjuk ki. 

— TI$-t az induláskor le kell nullázni. 

— TI az időt hatvanad másodpercben méri, így a TI változó értékét módo- 
sítanunk kell, hogy a céljainknak megfeleljen. 

A program: 


WTeege 
MIT" ERREEREEERAEME TÜFFERŐÜRAÁN" 
Ts"iN AZ EZ MEGALLIT 


ű Ű 9g 
A Xn 
maj 1-4 4 lg 


1—g 17) 


meg 
dög 


7 


Hai LENE ág 
"aaaanan 


mg) TM A 
D 
a tt 


He 
u! 


edge 
n 


u 


va 1 


Vegyük észre: 

- A TI$-t nem csak nullázni, hanem más értékekre állítani is lehet. 

— Vigyázni kell, hogy az óra, perc, másodperc értékek együtt hat karaktert 
tegyenek ki. Ha valamelyik érték egyjegyű szám, akkor elé nullát kell 
beírni. 

— Jól használható az összefűzés (konkatenáció) művelete a TI$ értékének 
megadására (120. sor). 

A program: 


49 PRINT"PERCET. 

58 PRINT"EBLENYOM 

SA PRINT"A BEGEP 

7A INPUTTORATFAR 

SA INPUT" (BE 

a8 INPUTTMAZODPERC?:CE 
iam GET OZ 

11m IF 

iga TI: 

128 PR 

i4m PR TIE 
158 GE 

ism IF 

írü FE 

iga a 

188 EM 


150. Vegyük észre: : 

— A billentyűzet jeleit DATA-ban tárolhatjuk. Az idézőjelet nem lehet így 
tárolni, a vesszőt, a kettőspontot pedig csak idézőjel közé zárva fogadja 
el a gép. Így nem a jelentésük, hanem az alakjuk rögzítődik. 

-— A karakter leütésére ne adjunk korlátlan időt, mert úgy nem érdekes a 
játék. Ha valaki kifut az időből, úgy az is hibának számít. 

- A karakter megjelenése és a billentyű leütése közt eltelt idő mérhető 
TI$-ral is, de mivel ez inkább másodperceket vesz csak igénybe, mégis 
jobb a TI használata. Pl. 250. sor. 

- Ha már jól megy a játék, akkor az egy karakter megkeresésére adott időt 
lerövidíthetjük (190. sor: FOR 1—1 T0O500). 


pp 


program : 


Ap TITI 


mmm 


ng 


í. EGYERAT 


TTI TI TI 
A] A) 


" 


p KG 4 El 4 ERR ő ! 
TEMA] OAI ii [en llen jlllee. 


"TI vé I 
1) 


130 TI3X-"dAAAHO 

ígű FOR K-i Tü 2A9 

200 GET A 

217 IF A$3-"" THEN G60TÜ 248 
ezü IF A$4-ABR(RI THEN 3-5-i 
23 


FEET ár 


PRINT " HIRIEHNN REN TETET ETETETT ETETETT F 


EhHü 

DATA 1,2.3,4; TAC séta d sldlseét zdő geg 
DATA A.5,D,F,G Petz sze siz E daáza sz ező 
DATA ! H,F.ZŐ -t-t-t.i 


3.12 Képernyőkezelés, grafika 


Színek 
COLOR utasítás 
Háttér színezése: COLOR 4, színkód, árnyalat 
Papír színezése: COLOR CO), színkód, árnyalat 
Kurzor színezése: COLOR 1, színkód, árnyalat 


Az árnyalatokat 0-7 közötti számmal adhatjuk meg. 


Színkódok: 

1. fekete 6. zöld 11. sárgászöld 
2. fehér 7. kék 12. rózsaszín 

3. piros 8. sárga 13. kékeszöld 
4. enciánkék 9. narancs 14. világoskék 
5. bíbor 10. barna 15. sötétkék 


16. világoszöld 


Grafikus üzemmód 
A grafikus üzemmód adta lehetőségeket csak akkor használhatjuk ki, ha a 
Graphic utasítással áttérünk a grafikus üzemmódra. 


Lehetséges üzemmódok: 


Szöveges üzemmód: GRAPHIC 0, 1 
Finomfelbontás: GRAPHIC 1, 1 
Finomfelbontás--szöveg : GRAPHIC 2, 1 
Sokszínű üzemmód: GRAPHIC 3, 1 
Sokszínű--szöveg: GRAPHIC 4, 1 


A finomfelbontásban a gép 329 oszlopot és 200 sort hoz létre. A finomfelbontás 
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szöveg üzemmódban csak 160 sorral dolgozik és a képernyő alját megtartja a 
normál képernyő üzemmódban. 

A grafikus üzemmód speciális utasításai 

DRAW 

Az utasítás alkalmas pont, egyenes, megtört vonal, egyenesek által határolt sok- 
szög rajzoltatására. 


Pont: DRAW színkód, oszlop, sor 
Egyenes: DRAW színküd, oszlop, sor TO oszlop, sor 
Egyenes a legutóbbi pontból: DRAW szín TO cszlop, sor 


CIRCLE 
Az utasítás alkalmas kör, ellipszis, ív és ezekbe rajzolható síkidomok megrajzo- 


lására. 


Kör: CIRCLE 1, középpont oszlop, középpont sor, sugár 

Ellipszis : CIRCLE 1, középpont oszlop, középpont sor, szélesség, ma- 
gasság 

Ív: CIRCLE 1, középpont oszlop, középpont sor, szélesség, ma- 
gasság, kezdet, vég 

Elforgatott ellipszis: CIRCLE 1, középpont oszlop, középpont sor, szélesség, ma- 
gasság, szög 

Sokszög: CIRCLE 1, középpont oszlop, középpont sor, szélesség, ma- 


gasság, 360/szögek száma (itt a szög a középpontból a 
két szomszédos csúcshoz húzott sugár által bezárt szög). 


BOX 

Az utasítás téglalap alakú területek rajzolására alkalmas. 

Körvonal: BOX szín, oszi. 1, sor 1, oszl. 2, sor 2 (A két átellenes csúcs 
koordinátái.) 

Elfordítva : BOX szín, oszl. 1, sor 1, oszl. 2, sor 2, szög 

Tömör felület: BOX szín, oszl. 1, sor 1, oszl. 2. sor 2, kitöltve 

Elfordítva : BOX szín, oszl. 1, sor 1, oszi. 2, sor 2, szög, kitöltve 

PAINT 


Az utasítás összefüggő vonallal körülhatárolt területek színezésére alkalmas. A 
színezés a COLOR utasításban megadott kurzorszínne! történik. 
Színezés: PAINT színkód, belső pont oszlop, belső pont sor. 


CHAR 
A grafikus üzemmódban a képernyőre PRINT utasítással nem lehet íratni. A 
CHAR utasítás a képernyőt 40 oszlop és 25 sor felbontásúnak tekinti, és normál 


karaktereket helyez a megjelölt helyre. 
Kiíratás : CHAR szín, oszlop, sor , SZÖVEG". 


SCNCLR 


A grafikus üzemmódban a képernyőtörlésre szolgáló utasítás. 


151. Vegyük észre: 
— Az indításra és megállításra jól használható a GET A$ utasítás. 
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— Az oszlop koordinátái 0—320, a sor koordinátái 0—200 közötti számok le- 
hetnek. 
A program : 
in GRAPHIC iíi,i 
29 SCNEÉLR 
zü GET A£ 
am IF öS£zífs"I 38 
nd szIMTÉRM( 
BA Y-IMHTÉRRHO( 
7A ORAL 1.X,? 
58 GET AF 
99 IF AZ: "TY" THEN GÜüTŰ 5A 
108 EH 


152. Vegyük észre: 
— Nincs más dolgunk, mint a koordinátáknak megfelelő pontokat DRAW 
utasítással megjeleníteni. 
— A megfelelő pontokat összekötve egy vitorláshajót kapunk. A pontok ösz- 
szekötése az a) programmal történik. 
A programok: 


a) b) 
af . 04.66 mtálába SZE GSERPHIC 1.1 
ük i.dű,11m neti í1.dű,.i19 Tü ZAR. 11A 
DR: 1.898.118 DR 1,22,.132űú Tü ZEM, 1730 
-i í1,1473,117 ne kis iz Tü 49a,11A 
z nm. 1.289 ,119a OR 1.,142.zmű TŰ 28R,118 
em OR 1309 5119 OR 1 20 TO 149;5118 
Ted OR 1.60 :14180 : ng 1 "eg Tü Bú ,1i19a 
zü Nr 1 süss ga nR 3 : 13ű TO Z3AM.1192 
aa DR 1.14dE a 
ima DF kt £s 88.80 
118 HW 1,1ídAü,.,8Mm 
izB BD 1, 88: Li 
I309 BD 1,149a.,139 
154. 


a) Vegyük észre: 

— A programot futtatva azt tapasztaljuk, hogy a gép a képernyő minden 
10. sorába húz egy vízszintes vonalat. 

— Az ok: A külső ciklus tartalmazza a sorok változását, a belső az oszlopo- 
két. Így ugyanarra a J értékre az ! értékének 0 . . . 320-ig történő válto- 
zása, vagyis egy vízszintes vonali húzása jut. 

b) Vegyük észre: 

- A programot futtatva azt tapasztaljuk, hogy a gép a képernyő minden 
10. sorában egyszerre húzza a vízszintes vonalat. 
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— Az ok: A külső ciklus tartalmazza az oszlopok, a belső a sorok változását. 
Így ugyanarra az I értékre a J értékének 0-tól 200-ig való változása jut. 
Így a gép nem az egymás melletti, hanem az egymás alatti pontokat je- 
löli ki egy körülfordulás alkalmával. Mivel a rajzolás gyorsan történik, 
ezért úgy tűnik, mintha az összes vízszintes vonalat egyszerre húzná a 
gép. 


155. Vegyük észre: 
— Vonalat a géppel úgy rajzolhatunk, ha megadjuk a kezdő- és a vég- 
pont koordinátáit. 
- GRAPHIC 1, 1 üzemmódban X koordináta 0 . . . 320, Y koordináta O . . . 200 


lehet. 

A program: 
19 GRAFHITZ 1,1 
en SZMELR 
39 XI-INTÉRNDÖÉ 1: x521: 
39 42-INTÉREHÓ (1? áz2ei1: 
na vYI-INTÉRHO(r(1:3á201." 
sit Y2-INT(ÉRMHOCTi:xegüis 
7A DRAW 1.XI,.rT1 TŰ E,TE 
zAa GOTO Z7 


156. Vegyük észre: 
— Mivel a rajzoltatás a bal felső saroktól (O0;0 koordinátájú pont) indul, ezt 
a pontot külön meg kell rajzolni. 
- Ha összefüggő vonalról van szó, az azt jelenti, hogy a következő szakasz 
az előző végpontjából indul ki. Ezt kihasználhatjuk a programozás során. 
A program: 


(4 Mm 


DEAL 1.2.a 
AzIMHTÉRMDÁ( 
VYVzINT(RMO( 


DRALI 1 Ti 


man. 
9 B DIDNMIWNMNIMNR 


1 


157. Vegyük észre: 
— A felaidat többféleképpen megoldható : 
1. DRAW utasítással: A négy csúcspont koordinátáit adjuk meg, ame- 
lyeket összekötünk. 
2. BOX utasítással: A két átellenes csúcspont koordinátáit adjuk meg. 
3. A CIRCLE utasítással: A középpont koordinátáit, a szélességet, a ma- 
gasságot és az átlók által bezárt szöget adjuk meg. 


150 


A programok: 


1 2. 
117 
ze 
zi NE 1z8a [sej " SZÜ, 129 
ad NR 180 z 
ae ElRI ta 1 
Ein DR: id Haj 
7 EM 


158. Vegyük észre: 
— A színezés mindig az aktuális kurzorszínnel történik. Ha ez nem feiel meg, 


a kurzor színén állítani kell. 
- A színezéshez meg kell adni egy belső pont koordinátáját. 


A program: 


Mm 
7 


jer llllhos 


ja) 


ho lt tot ll ho lira I) 


m un b 


ezé 
[dd 


159. Vegyük észre: 
- A megfelelő színek beállítása után két egymásba skatulyázott ciklussal 


a feladat könnyedén megoldható. 
A program: 
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160. 


9 AaDRDIWX 


min bim e 


m 


u Me 
m DR 


HiX 
5) 


ún 


ÍS 


man 
mm B 


ma 


161. 


min .küm e 
mm ND ID 


a 
a 
ND 


ím mm 


ha 


DDE 


am an bin 6 e 


íD) 


Vegyük észre: 


— Színezés előtt a kurzor színét be kell állítani. 


A programok: 


a) 

SRAPHIC 1, 
SCNMELR 
DRAW 1.150 
ORAL 1,20A 
DRALI 1.198 
EMI 

b) 

BRAPHIC 1, 
SCNCLR 
DRALI 1.15A 
DRAW 1.ema 
DRAL 1.198 
COLOR 1.1 
PFAINT 1.1 
EMO 


Vegyük észre: 


— Az átlók kezdő- és végpontjának koordinátái 


számíthatók. 
A program: 
SRAFHIC i 
SCHELR 
CtIRCLE 1.1 
ORAL 1.199. 
ORALI 1.14 
ERIN 


Vegyük észre: 


hú ) KK 


1 
-5a TO em 
,15Aa TO 1 
15 Tü 1 
1 

s5Aa TO em 
. sa To 1 
,-158 TO 1 
A.ER 


ím DJ 
9 


[A ! 


(3) 


tt 


s 
ra ÚJ 


J nm 


ún 
[43 


A) 


a kör adataiból egyszerűen 


- A koncentrikus körök középpontja megegyezik, csak sugaruk különböző. 


A program: 


SRAPHIC 1. 
HORÁL 15168 
CIRELE 1-1 
CIsSOLE 151 
CTSELE 1571 
ET EEILGE  4§:d 
CTIEGCLE £:1 


tl 


m m a. 


m 


152 


163. 


hí) M 


2 


mm mg 


Vegyük észre: 

- A szabályos hatszög minden oldala egyenlő, minden szöge egyenlő, a 
szomszédos átlóik által bezárt szög 60 fokos. 

A programok: 


a) 


rea 


Vegyük észre: 


- A téglalap rajzolása legegyszerűbb a BOX utasítással. 
— Az átlók DRAW-val húzhatók. 
A program: 


165. Vegyük észre: 


- A feladat megoldása némi előzetes rajzolást igényel. 

- Kockás papíron vonalzóval rajzolj egy kockát, amelynek csúcsai egy-egy 
rácspontra esnek. 

— Tervezd meg, hogy egy-egy rácspont a képernyőn hány pontnak felel 
meg, majd állapítsd meg a csúcsok koordinátáit! 

A program: 


[o 
1 
J 


24 
El ű 
JŐ sa íz fás a 


4 


a 
JJ a 4 


Ji 4 


16ó. Vegyük észre: 
— Megint célszerű elővenni a kockás lapot, és azon megtervezni az ábrát. 
— A feliratokat csok CHAR utasítással helyezhetjük a képernyőre. A koor- 
dináták ekkor 0...40 és 0. ..25 lehetnek. 
A program: 


ia 
11 
cs 
$z 


34 m 2) 
ag an a 
san aa 
sa DF 

7m DRI a 
sa CHI 

Ja 41 

158 

. , 


síiastíát "FÚR" 
1.18.,15.,"700" 
1,14.,14."K.HA 
3.13 Zene 
Kódtáblázat: 
A zenei hang A hang kódja 
A 7 
H 118 
[ők 169 
D 262 
E 345 
F 383 
G 453 
A 516 
ti 571 
CG 596 
D 643 
E 685 
F 704 
G Z39 
A 770 
H 798 
c 810 
D 534 
E 854 
F 864 
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Kódtáblázat: 
A zenei hang A hang kódja 

881 
897 
911 
917 
929 
939 
944 
953 


OmnmmUNIlro 


VOL X 
A hangerőt állítja be. X—O kikapcsolás, X—7 maximális hangerő. 
SOUND A, B, C 
A hanggenerátor beállítása : 
A: 1-3 lehet, a hanggenerátor megjelölése. 
B: a zenei hangnak megfelelő kód a táblázatból. 


C: a hang megszólaltatásának hossza. Értéke 0—1015 lehet. Egy egység a 
másodperc 1/50. részét jelenti. 


167. Vegyük észre: 
— A táblázat adatait nem érdemes megtanulni. Ha zenélni szeretnél, vedd 
elő, és ebből könnyen dolgozhatsz! 
A program: 


12 PRIRJT SJ" 

en vOL 7 

za zünnm 1i.7r7za lan 
:f ERIN 


168. Vegyük észre: 
—- A program megoldható pl. : 

1. A hang megszólaltatása után GET A$. Ha A$ nem "V", szóljon a kö- 
vetkező hang. 

2. A hangmagasságot változóként kezelem. Ha a változó páratlan szám, 
mély, ha páros szám, akkor a magas hang kódjával lesz egyenlő. Így 
csak egy GET A$ utasításra van szükség. 

A programok: 


1. 
PRINT" 
MEL T 


) ín 


Tr og ora 7 


a) 
éji E 
Kt 


Timi 
A 


ÍM raz 


nm biom e 
mm Ip DIDID 


a ML j 
I) DD 3 IT 


ma I) mM 
s] 


— 
a 
9 


170. 


5 


u Mm e 
MJ 1 


in b 
íz) DD 


171. 


[aj 


FRIMHT"A4" 

VOL 7 

1-Aa 

TET ed 

ISZINT(-I/2542 THEN X-3i7 § 


1,5.59 


szsye THEN GŰUTO E 


Vegyük észre: 

- Mivel az egyes hangok kódszámai nem szabályosan követik egymást, 
ezért célszerű azokat DATA-ban tárolni. 

A program: 


PRINT "AJ" 
DIM 8(287 


Vegyük észre: 
— Két hanggenerátort egyszerre kell működtetni. 


A program: 

PRINT VJ" 

voL 7 

sOun an 1 597 za 
SOüUuMD 2, 77A,E2Z 
nűüTro za 


Vegyük észre: 

— Nemcsak a koordináták véletlenszerűek, hanem az is, hogy vízszintes vagy 
függőleges vonalakat akarok-e húzni. 

-— Vízszintes vonalat húz a gép, ha csak az X koordináták változnak. 

- Függőleges vonalat húz a gép, ha csak az Y koordináták változnak. 
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Ta 


m 


(E) IT 


nm ÜüÜ HhÚŰÜ li 
18) fifo Ill Ils EL, Mltso) 


aj 


me IX) 


kes des ht 


A program: 


NMEAZT I 


xesri 


: MEXT I 


Vegyük észre: 

- Hangmagasságokat és billentyűket kell egymásnak megfeleltetnünk. 

—- Megoldható a feladat úgy is, hogy a hang a betűjelének leütésére szó- 
laljon meg, de célszerűbb egymás utáni billentyűket kiszemelni erre a 
célra. Pl. a számbillentyűket 1-től 8-ig. 

- A billentyűk leütését a GET utasítással vizsgálhatjuk. 

A program: 


BETNYVa 
FRIRHT" BBBBARBEBAEREBEAKFGÜLiA STATE" 


FRINT"AZ ORGONA A SZAMBILLENTTYrUK LENYOMHAZAVAL " 


TITI NT 
a) 
mn 


mig 


íj) 


e a 
Jé. ÉS 


173. Vegyük észre: 
—- Nem csak a hangmagasságokat, hanem a ritmust is tárolnunk kell. 
— Ügyelni kell arra, hogy a szüneteket is megtartsuk a megfelelő helyen. 


819 ,25.8190,12,334,12,854 25.810 ,2£5,8534 ,25, 
854 ,25,854,12.,354,12,381.25,884.25.864,25 


857 .,12 


A program: 
19 DIM AC49):DIM Bc40) 
20 PRINT"J" 
38 PRINT" BRRERBPAL KATA PETER JO REGGEL TERE" 
48 FOR I-1 TO 40 
539 READ AC(I) 
68 RERD séKI) 
70 NEXT I 
89 VOL 7 
99 FOR I-1 TO 40 
199 SOUND 1.ACID,B(I) 
119 NEXT I 
129 END 
130 DATA 
149 DATA 
158 DATA 881,12,881,12,881,12,881,12,881,25, 
169 DATA 854,25,881,12,854,12,854,25,0,25 
179 ORTA 
25 ,810,25 
3.14 Karakterfüzér függvények 
Karakterkódok táblázata 
CHR$ kód Hatás 
o 
1 
2 
3 
4 
5 fehér 
6 
7 
8 SHIFT--C—kikapcs. 
9 SHIFT-3-C—bekapcs. 
10 
11 
12 
13 RETURN 
14 karakterkészlet csere 
kis/nagy betű 
15 
16 
17 kurzor le 
18 RVS bekapcs. 
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98, 25.,810,25,0,25 


324 ,25,354,85,0,85 
3 


81,1E 


854 ,12,8543,12,854,12,854.12 854 ,25,8564,12,854.12e,834,25,881, 


Hatás 


HOME 
DEI. 


ESC 

Piros 

kurzor jobbra 
zöld 

kék 

szóköz 


CHR$ kód Hatás CHRS kód Hatás 


39 ki 88 x 
40 A 89 Y 
41 90 2 
42 hai 91 f 
43 ET 92 £ 
44 s, 93 1 
45 E 94 j 
46 ; 95 bá 
47 93 . 
48 éz) 97 

49 1 98 

50 2 99 ő 
51 3 100 a 
52 4 101 - 
53 5 102 - 
54 ó 103 ! 
55 [4 104 ! 
56 105 ü 
57 9 jén 

fs ; 107 

; 108 sag 

60 ha 109 b 
61 si 110 sál 
62 - 111 58 
63 a 112 a 
64 2 113 ES 
65 A 114 zs 
óóó B 115 " 
67 G 116 

68 D taz 

69 E 118 

70 F 119 zt 
71 6 120 ed; 
72 KH 121 [ 
73 i jás 4 
74 J 123 a 
75 K 124 ÉJ 
76 L i25 fi 
. Li 126 Bi 
79 Öö 1 28 kk 
80 f 129 narancs 
81 a 130 villogó be 
82 R 131 villogó ki 
83 s 132 

384 T 133 f1 
85 U 134 f3 
86 VÖ 435 f5 
87 w 136 f7 
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CHR$ kód Hatás CHR$ kód — Hatás 


137 f2 164 szú 
138 f4 165 ! 
139 fő 166 B 
140 HELP 167 i 
141 RETURN 168 tiz 
142 karakterkészlet csere 169 F 

kis/nagy betű 170 i 
143 171 F 
144 fekete 172 sz 
145 kurzor fel 173 8 
146 RVS kikapcs. 174 78 
147 CLEAR 175 — 
148 INST 176 it 
149 barna 177 ii 
150 sárgászöld 178 s ni 
151 rózsaszín 179 4 
152 kékeszöld 180 i 
153 világoskék 181 fi 
154 sötétkék 182 i 
155 világoszöld 183 —- 
156 bíbor 184 — 
157 kurzor balra 185 ús 
158 sárga 186 d 
159 enciánkék 187 a 
160 szóköz 188 z 
161 É 189 a 
162 pé 190 n 
163 - 191 üg 

CHR$(X) 


Ha X helyére a táblázat értékeit helyettesítjük, a táblázatban megjelölt hatás jön 
létre. 

LEFT$(X$,A) 

A$-—LEFT$(X$,A) 

A$ értéke az X$-ban levő sztring balról számított A db karaktere lesz. 
LEN(X$) 

A-—LEN(X$) 

Az A értéke annyi lesz, ahány karakterből áll az X$-ban levő sztring. 
RIGHT$(X$, A) 

A$-—RIGHT$(X$,A) 

A$ értéke az X$-ban levő sztring jobbról számított A db karaktere lesz. 
STR$(X) 

A$—STR$(X) 


Az X változóban levő számot az A$ sztringváltozóba helyezi. 


160 


174. Vegyük észre: 


A 


mm ua 


4 Mm I 4 ( 
mm E 


14) 
ha] 


Pp 


Huj 


Véletlenszerűen eddig csak számokat tudtunk kiíratni. 

A karakterkódok 65-től 90-ig tartalmazzák a betűket. 

Ha a véletlenszámokat ilyen tartományon belül generáltatjuk, majd a 
számot CHR$(A) függvénybe helyettesítjük, egy betűt kapunk. 

program : 


RINT"J" 


ZERLU BETUK IIRATAS SERTSTGg" 


175. Vegyük észre: 


A 


FEINT ART "PF 


Idézőjelet csak úgy tudunk kiíratni, hogy ha a CHR$(34)-et használjuk, 
mert ez az idézőjel kódja. 


program : 


HEXR-r(Z34; 


ím 


I 
aj 
Pp 
rj) 
Fi 
es 
TT" 
A 
T 


UHOLCSE EGESZ" FA 


FRINT"ABBEBAZOZABEZEKBESEKEHBEBBEE( AFACZAI 3" 


176. Vegyük észre: 

Ha megpróbáljuk lefuttatni az 1. programot, furcsa módon nem az ösz- 
szes karaktert kapjuk meg, hanem a képernyőn változások történnek. Ez 
a 129...159 közötti kódok jelentésének következménye. 

Az előzőekből okulva, ezeket a kódszámokat célszerű kihagyni. Pl. a 2. 
prograrn futtatásával. 

programok: 


2. 


a 


fest 
[ks 


7) 


ap ma on o) I 
a DDD KE 


hi 
a 


ds 
ÜZ 


m 
Í hö 


ma re (4) 17 
[ol 


177. Vegyük észre: 
4 — Ha a betű titkosírásbeli kódja megegyezik a karakterkódjával, akkor azt 

nem kell tárolni, csak a CHR(X) függvénnyel megfejteni. 

— Ha hosszabb, de 255 karakternél rövidebb szöveget akarunk dekódolni, 
jól használható az összefűzés művelete. 

- A program leállítására olyan karaktert célszerű választani, amely szö- 
vegben nem fordul elő. Pl.: 

A program: 


18 PRINT" 
2A PRINT"EBBBBHBEBEBEBBONOLO 
28 FRINT"ERBESBBBBSEHISETUÜRŐL 


178. Vegyük észre: 
— Fontas tudnunk, hogy az illetőnek hány tagú a neve. 
—- A nevet tagonként bekérve, azok első betűjét kell kiíratni. 
Probléma, hogy ha a név kettős betűvel kezdődik, akkor is csak az első 
betűt írja ki a gép. 
A program: 


fs LK 


B (df) 


ez et 


(JJ 


TAPUT PERCÉT: 


ed B3R(I:-LEFTHÍ(RBHRÉI3,175 
TE -HESNT 4 

si PRIHMT EA HOKHOGRAMMIA " 
ad FOR Is4 TŰ áz 

18 FRINMTBEBSÉI2389."; 

118 MEAT I 

128 ERŐ 


179. Vegyük észre: 


- A szót INPUT utasítással bekérve a hossza egyszerűen megállapítható. 


A program: 


ig FRINT"AJ4" 

zta üst 

39 IHFRIUT AZ 

aa S5zLEMC(AZzI 

mit FRIHT 

ba FRINMT" HIBH EEGEFELT SZO HOSZZA "TEA "BETU" 
TA EMDO 


180. Vegyük észre: 


- Ha a szöveget a GET utasítással kérjük be, akkor a szöveg végét olyan 
karakterrel érdemes jelezni, amely egy szövegrészben nem fordul elő. Pl. : 


A program: 


1a PRINT"úJ4" 
zA PRINT" HEBBBEZOHOSSZ HESALLAFRFITÓŰ FROGRAFENETEI" 
39 GET Ax 

aa IF 63-" THEM GOTO 38 

aid IF AF-"4k" THEM GOTŐ AA 

EA PRINT Ag; 

7 Éz 


7 


a 


HOSSZA" TAT 


181. Vegyük észre: 


"BETUTt 


— Ikes igéről beszélünk, ha az egyes szám harmadik személyben az ige ik- 


re végződik. Ezt kell vizsgálni. 


A program: 
ta PERLI "ed 
szil FROIFJT" HRRMEBIK- FE IGET GSEFRELIIIMK -E AHA" 
39 IFUT AZ GE 1. 5285 3. SZEMELYBEDNM "fi 


x 


An 


48 BE-RIGHTE(AZ,Z? 

58 IF BE-"IK?! THEN PRINT"HIK-EZ IGET GEPELT." : BSÜTÖTE 
88 PRINT"ERJEM IK-ES IGET GSEFELT.?" 

7A EMD 


182. Vegyük észre: 
— Az adott szót az elsőtől az utolsó betűig betűnként meg kell vizsgálni. 
- Ehhez szükséges tudnunk, hogy a szó hány karaktert tartalmaz. 
A program: 


Aa PRINT" 
A PRINT"EBREBHANMY E BETUT TARTALMAZ A SZOKTA" 


TNFUT"SA SZOÓVZTFER 

XzLEMiAsp? 

FOR I-i Tű - 

A B$-MIOF(AF I .i: 

7 IF E$-"E" THEN K-Kil 

8 NEAT I 

aa PRINT" "EBBE SZü"FK:;"OSKAEBE E BETUT TARTALPIÍRZ." 
199 EMU 


úm ül MD 
[do ELS) 


n 


183. Vegyük észre: 
— Az előző feladattól annyiban különbözik, hogy most a szót kétbetűnként 
kell megvizsgálni. 


A program: 
16 PEINT"G" 
en PRINT "AEBEMEKHALI S L-T TARTALMAZ A SZÍ HERBERT 
zi IMPFIUT9A SZŰVFAZT 
39 ZELEM(AR? 
ani FOR I-1iI Tű - 
ed B$-MIOFÉÍAELI. Z? 
TÓ IF ES-"LYyY" THEN K-K:ii 
SA ME;T I 
aa FREIRHT" HERAAERTSK SZÜ" EK D5ESB LY-T THETALNMAZ 
tam EHD 


184. Vegyük észre: 
—-— Ha a mondatot betűnként GET utasítással kérjük be, akkor célszerű az 
összefűzést alkalmazni. 
- A mondat végét pont, kérdőjel vagy felkiáltójel jelzi. Ezt kihasználhatjuk 
a bekérés megállítására. 
— A mondat betűnként való kiíratása érdekesebb, ha az egyes betűk kö- 
zött érzékelhető szüneteket tartunk. 
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3) 


I A 


3) 


fe! 


MOLA B ÉJ TU 
7) 


ág] 
s) 


ra ÉJ) ÚJ 
jet NG 


Ft lo] 


tör VA VENNE OV MIK VI át 7 ERBÉT e "El VOPYEKY 1 9 


ez. 
íz 


185. 


mmRam 


n 
elhe lit 


zöld 
íR 


7) 


A program: 


PRINT"AJ" 
FRINT"HEBEBBEKEEEJOKDAT KIIRO BETH" 
jat 


: BE 8 MŰMOSTÜT ! BNEH" 


TT BR 


tg 7) 


TT) 
Tim 
D 
lét 
u" 
saj 
ij aa 
al 
1) 
um ) 
57) 
ja ) 
La 
ka) 


E 
1 


TI 4 


MT" HENEBEMENESIK BERTA OKDAT KI IRO HIETE" 


p.a 


3) 
D 
tét 
1 
fr 
La ) 
I 
MT ag 
kt 
Éj 


mm 
FOR kz1i TO 258 : 


Jam e b új 
ki [ho 
TI Té ri 
sss 
A 


Vegyük észre: 


— Meg kell állapítani az adott szó hosszát. Ilyen számú karaktert kell 


egyszerre vizsgálni. 
A program: 


PRPItuT eu" 
PRINT "BEVELETLEK 
PP ITT BEHEBHERENESE : 


IRJPLÍTSt4AT £. ver 


Fi szüz 
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majd 


186. Vegyük észre: 
— Ha egy név kettős betűvel kezdődik, akkor a monogramnak is ezt a ket- 
tős betűt kell tartalmaznia. 
A program: 


18 PRINT"AI" 
28 PRINT"EEBBRABETSAVITOTT MOKHOGRAM  KESZITO HET" 

38 PRIMNT"HA A MEV KETTOS BETUSEL KEZDODIK, KEREM?" 
48 PRIMT"AZT A x BILLENTYI LENYOMASAVAL Fo NEW 

58 PRINT"ELOTT JELEZZE!BEEA" 

8A INPUT"HANY TAGÚ A MENTEM 

7ú PRINT"A MEV TAGOMKENTEI" 

em FOR 1-1 TO X 

aA IMNPUT AZ 

108 BE(I3-LEFTE(AB.1? 

118 IF E$(I2£2"x" THEN GOTO 138 

128 BE(I3-MIDF(AS,2 (2) 

138 MEXT I 

148 PRIHT 

158 FOR I-1 TŰ X 

18f PRINT BE(I28"."? 

178 MEXT I 

189 EHD 

198 EMD 


187. Vegyük észre: 

- Számokat sztringváltozóba csak úgy tehettünk, ha azokat idézőjel közé 
írtuk. 

— Ezért egy ciklus ciklusváltozójának aktuális értékét nem is tehetjük egy- 
szerűen egy sztringváltozóba. 

- A feladat megoldását az STR$(X) sztringfüggvény adja. 

— Vigyázni kell arra, hogy ezekkel a számokkal már nem végezhetők a ma- 
tematikai műveletek, mert ezek már mint sztringek szerepelnek, ha azo- 
kat a változókból íratjuk ki. 

A program: 


DIM Ax-EAs 
PRINT"44" 
PETHTESTETH 
FOR $-4d 
ASÉI: 
PRIHT"ARi"; 
MEXT I 

EMn 


Tr 


jen) 


MHEBEHI SszAMOK TAKROLASA 


b o ú Mm e 


DA NN § DDD 


9] 


namnmő 
vet AB) 


" 
DP 
tt 
ízt 


ra am ún 


188. Vegyük észre: 
— A grafikus üzemmódban a képernyő tetszőleges helyére a CHAR utasí- 
tással tudunk szöveget íratni. 
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— A szöveget nem csak idézőjelek közé írva, hanem sztringváltozóként 
megadhatom. 
A program: 


: GOTO 1zü 
THEN : SÜTO 15E 
IMELET "ITTUCS j 
cüTO 18 
: GOTO Z1X 


s Logikai műveletek (OR, AND, NOT) és ON . . . GOTO 


ÓR (VAGY) 
IF 1. feltétel OR 2. feltétel THEN . . . 
Ha a két feltétel közül legalább az egyik igaz, az állítás logikai értéke igaz. 


AND (ÉS) 

IF 1. feltétel AND 2. feltétel THEN . . . 

Ha a két feltétel közül mindkettő igaz, az állítás logikai értéke igaz. 
NOT (NEM) 

IF NOT (feltétel) THEN . . . 

Ha a zárójelben levő feltétel hamis, az állítás logikai értéke igaz. 


ON . . . GOTO 
ON X GOTO ... 
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Az ON... 


GOTO jól használható például menük esetében. 


A GOTO után írt 


címek közül a program futása annyiadikon folytatódik, amennyi az X értéke volt. 


189. a) Vegyük észre: 
— Egy szám páros, ha osztható kettővel. 
— Előfordulhat, hogy minden generált szám páros, így a páros számok tömb- 
jét 50-re kell dimenzionálni. 
A program: 
19 NIM A(C(DAa? 
zR K-Ö 
28 PRINT" 
47 PRINT" HEMEEBEERTZZ SA KÖZÖTTI VELETLENZZAMOK HIEJAT" 
59 FOR I-i TO 5A 
Aa 5S-INT(RHD-T153x1z15-6-zEAa 
vat PRIPET FG 
sa IF A-INT(A/E)KE THEN KzKá1 ACKozRi 
aga MEZTFrT I 
198 FRINT 
118 FRIRHT" HIBBBBBESROSAK VÜLTAK : B" 
12zn FüR I-1i1 Tü K 
12 PRIMT HETja 
14a MHEXT I 
15Aa END 


b) Vegyük észre: 

—- Lehet, hogy minden szám nagyobb lesz 
az előbbiek érvényesek. 

A program: 


DJ 


nIM ArsAa; 
K-m 
FFLBEK "Eg 
FE IHT " HIBBRER VÉ BTS 0 —-€ KÖZÖTTI 
FOR I-1 Tü 
AZIHTÁEREMGT17a 
FRIMT AE 
IF Az4iiA THEN 
MEXT I 
PRIHIT 
FRERIRHT" ETEDEENZEIBI ! 19-rIEL. BiöGYyű 
FRüR T-1 
RFRINMT AfI37 
MHEXT I 
EHID 


ik 


D 


Nin B mee 


7) 3 így ma 


y 
ks 


kKzkél o: A(KIER 


a 


megnő 
pag3 


s] 


Ta, 
fi 


1-6 eb bak s 4—s báj) 
ék 
da li 
15, 


a 
íg 
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100-nál, így a dimenzionálásra 


FT K, ETEKEN" 


c) Vegyük észre: 

— Páratlan a szám, ha nem osztható kettővel. 

— Páratlan és öttel osztható egy szérn, ha mindkét feltétel teljesül rá. 

— A feladat megoldható két IF-fel (1.) és megoldható az AND használatá- 
val is (2.). 

A programok: 


ús 
18 OZ (XN I 
zm K-A 


mr 
HI a 
7] 
ME) 
E; 


ma 
7 
11 
1-4 
4 
tg 
sag 
§ 
1 
1 
Hj 
5) 
2 
4 
bt 
mi 
ki 
m 
lesa 
( 
ír 
in 
NM 
"p 
ö 
pró 


úg 


lm ín 6 ú. 
ma 


7 
sm 
38 A - 
tan MERT 1 
LB PERTNT 
iza FEIHT" BHEFAREATLAMOK ES ÜTTEL OÜSZTHATŐK VÜLTAK : HI" 
la FOR 151 TO KE 
14dfi EBINT BÚT is 
1938 HEXT I 
tem EHE 
2. 


) 3 


IR 2-zga 4 TI zZ8taük BTETER" 
zIMHT(A/B145 THEN KzKél : ACKI-A 
3 ÜTTEL ÜSZTHATOK VÜLTAK B: 


d) Vegyük észre: 
— Egy számra akkor igaz, hogy 80-nál nagyobb vagy 4-gyel osztható, ha a 
két állítás közül legalább az egyik igaz. 
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- A feladat megoldható két [F-fel (1.) vagy az OR utasítás felnasználásá- 
val (2.). 
A programok: 


1. 

ra HIM FAEZEHG 
zi KkKzga 
ad FRIR 
Ja FRIKR KÖZÖTTI VELETLEMEZAttüK, BABÁSP" 
an FOR 

Se AZT xita15:zú 
vi PRI A? 

e EF 9 A THEM KESKGtI a : RATA 1AB 

BD IF A5-INT(A-/4344 THEN : ALKÁZzA 


3) 
KS 


Mm 
mim 


hab ő s et ab 1-6 ma (j) M 
jú e 


£2 
an pp 
mia HET 14 
bij EH 

7 A 

OIT ELSE a 


1 Ta 1 
fen ér 4 did) 
14 ig I 


Tt TT 
-) 
öassg 
" 

4 

as ) 

2 

ks) 


Új s 
7 [ha ) 


in mű 
2 


tű 
17 


e) Vegyük észre: 

— Az állítás akkor igaz, ha mind a két feltétel teljesül. 

— A feladat megoldható Két !F-fei (t.) vagy AND és NOT segítségével is 
(2.). 
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A programok: 


Tés 
am 
pot aa 
[Le] 
Dp 
zn 
bo) 


TT 7 TT: 


ig) iz 
IZ) a a 


im B 


ez 
IR 


mn 
a 


5] 
kt lc Ell kt Ell 
ke 
e TD 
Tj 


tseb ÍS, 
ü í 
mz 
Ax 
a 


Z] 


Le ee S ll e lt elre LN 11 4 B 
a) FT 
2) 


VELETLEKHSZAMOK SZERTE" 


(OBB: HT" 


f) Vegyük észre: 


- A feladatot megoldhatjuk két IF-fel (1.) vagy a NOT és az AND hasz- 
nálatával is (2.). 
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A programok: l 


ü HM ül 
o 

NM 1-4 
6) ax 

a) 

JI 

fa 


FRINTY:" 
PRINT" HENBRERENERHETSZZ ő — 
FOR 15-i Tü 538 

AZINT(RMD-19$18 


AMIK EZTEKBET 


min hm e 
mama 


mm 


pé 
m 


yi 
zi 
aa kzkái : HiIkKk:zfi 
187 MEXT (1 
(LE PRINT 
178 PEIHT" HIRRJEM ISAZ 30-MHEL ES PRAROST B 
138 FOR 151 TO OK 
idű FERIRHT A€I57 
ind 1 : I 
18 
2. 


zA 

42 S 1ős KÖZÖTTI sbik. BÁBASI" 
59 FüR I-i Tü 5€ 

ina] sSINT(RNMD(CI3kI511 

tű FEIHT He 

aa IF CA sFARN AMD HE SINTTAZ/ZIZKEI THEN KIKI z ArKIERi 
aA MEXT I 

199 FEIMT 

Ű FERÉLSET KIETNED IGAZ HOGY SA-HEL HEGVUBB ES FSEREATLAHH 
1 K 

1 

1 

1 


190. Vegyük észre: 
- A program az előzőekből gyakorlatilag összeállítható. 
— Mivel a program így hat különböző feladat megoldására alkalmas, cél- 
szerű a menü használata. 
—- Mivel mindegyik feladat tartalmazza a véletlenszámok generálását, ezt 


72 


elég egy helyre beiktatni, mielőtt a speciális feladatokra térne át a 
program. 

— Sok IF utasítást takaríthatunk meg, ha használjuk a logikai műveleteket 
(AND, OR, NOT). 

— Hatl!F utasítást takaríthatunk meg, ha a speciális feladatokra való elága- 
zásnál az ON X GOTO utasítást használjuk. 

— Mivel a feltételeknek megfelelő számokat törnbben gyűjtiük, és azokat 
ki is kell íratnunk, a kiíró ciklust érdemes olyan helyre tenni, ahová a 
program a véletlenszámok válogatása után visszatérhet. 

- A számok kiíratása előtt célszerű azt is kiíratni, hogy milyen feltételek 
alapján választottuk ki ezeket az értékeket. 

A program: 


2 


Hi 4 SET 
mm a 


il 
jee 


FRINT" 
PRINT"1. 
PRINT"Z 
PRINT"Z 
PRINT"4, 
PRINT"5.,18 2TAT 
FRIMTSB, NEM IGAZ. 
TIMELIT" EMEL YIK MOD 
FOR 1-1 TO K 
RROILEJT " BEHZHEREBŰNERISS- 7 —2ü€ 
FOR í-i Tü sa 
AZINTAÁRMO( 13 
PRINT FE 


ij in in b 
sz lg a3 BE si Il re 


8 KI 


D na 17) 


a 198 

I 18 

Fé Aa - 
lizi ís 19 
11 I TífR I: 
32Aa A MEM 
AZA a ism 


( 
a 


191. Vegyük észre: 
- Az adatokat érdemes DATA-ban tárolni, így a kikapcsoláskor azok nem 
vesznek el. 
- Egy tanuló háromnál több szakkörnek nem lehet tagja. 
- Ha a tanulók szakköri elfoglaltságához könnyen szeretnénk hozzáférni, 
azokat célszerű kétdimenziós tömbben tárolni. Az egyik index a tanulóra, 
a másik a szakkör sorszámára utal. 
- A fel nem használt szakköri lehetőségeket jelölni kell, pl. 2-val. 
a) Vegyük észre: 
- A sportversenyen induló csapatba elsősorban a sportolók jelölhetők. 
A program: 
tü PRINT" 
28 PRINT" HEBBBBESZ ÖRS TAGJAINAK JELÖLESE VETELKEDOKREM 
3 FOR I-i Tü 18 
gű READ AH(II 
mit FRIHT AFRÁiI:s 
inűsi ü z 
ya a 
ea Tárt a 
ai 
ia 
Ti MEXT I 
1zA kh ItiT " HEBFO IRTSVERZSZEIMÍVRE JgAayAZUL TAKE 
130 18 
1da 
158 SEORT" THEM MERti APTKk:-zAPLI 
: 
ú 
b 
2 


FRIRNT 
MEA;T I 
E. 
DATA 


Hi LATI 
úüSTA RÜRBI 
Bt 1 Ft EME T 
BT FEKI 


b) Vegyük észre: 
— KRESZ-vetélkedőre elsősorban azok menjenek, akik KRESZ-szakkörre jár- 
tak. 


A program : 


0 EKATAT "a 

za FRINT "EBRERHENAZ BESE TAGIJRIMHAK JELÜLESE VETELKEGÜKREZEG" 
za Für 

39 R 


m 
ama 


ad 


7 


) 
1] 


va A 
yi 
9 mi 


a ÚT 
hos 


mm 
korl? ln Ill 


c ll) 


m u 5 új 
(k3 


íj) en ag 
mm ix 
ig 3) 


9 0 a 
7 


04 ERB 14 TK KGY To vlllk El ect ve S ell "ell see] 


VE, 

ir 
ka 

ri 


fo 


7) 


.m 


mi 
[kai 
3-6 
b 
pp 
E 
24 A) íj) z 
a.) 


[hő 
7 mű. 
"5 Ma 
mát úi 
hd hd 


11) 


bj 7 
m z 
a 


c) Vegyük észre: 
- Népdaléneklési versenyre azt célszerű jelölni, aki énekkarra járt. 


HA Az 852 TAOGJRÍNMNAK JELÜLESE VETELKEDÜKRE SÉT" 


E Ma 4)! 
has álíhe 


1 
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Ed FÜR JT-1 TÜ 3 

78 READ B$(I,J; 

889 FRIHT TARBC(IO:EBELT d 2" f 

sa MEXT J 

laid FRIRHT 

16 WEAT 1 

12 PRINT " HERHEPOSLENEKLESEZSZ VERZENVRE JAVAZULTAKHT 
158 FOK Izi Ti 18 

148 FOR Jzi Tü 3 

158 IF BECGITJIZ"EMEKKAR? THEN K-KHÍ:ARCKIZAPÜIÓ) 
LB MEXT J 

í7éi MEXT I 

(88 FRINIT 

tat FOR ÉSi TU RK 


PRENT FEREÉLT Ő s 


pszőj 2 ad) 

zim MEKT I 

ező EMM 

zza DATA : HR RAJZ EÜ 
24A DATA EK IZIKA,8 

ESZA DATA sz "RAJZ , KEMIA 
2z8A DATA - FORT ,A 

27A DATA ZA 


a. 
he 


Vegyük észre: 

Mivel egyéni művészeti vetélkedőrő! van szó, ezért olyan pajtásokat cél- 
szerű jelölni, akik rajzszakkörre és énekkarra is járnak. 

— Több IF-et megtakaríthatunk, ha használjuk a logikai műveleteket. 

A program: 


PRINT "úg" 


FOR Izi TO ia 


- 


aa Dam 


6) 


nen B id ín e 


] 
[cs öl! 


min 

ipE FR 

118 MEX-T I 

1ziú FEGIJT " HISEGvYENMII 
izű Für i mi kari 
14m !. 

in B 

ism I 

í7ű I 

izi H 


FRINT "HABBEEÁ- GF2Z TAGUJRIÍiAKk JELÜLEZE VETELKEÜDÖKREH 


MNEKKAR , HATEK ,. SFORT,EVA RAJZ , 2, 0 
52, MATEK 8 .BELA KRESZ FIZIKA, O 
vljegg ásd ágyezbaejzkáttéstegegejáől 
MÉTER a - RAJZ , 0, JOC I , KRESZ , PORT, A 


e) Vegyük észre: 

— Csapatversenyről van szó, ezért elég, ha a csapat tagjai a biológia, ké- 
mia vagy fizika szakkörök egyikére járnak. 

— Ha egy tanuló több ilyen szakkörre is jár, az jó, de nem elengedhetetlen 
feltétel. 

— Takarékoskodhatunk az IF-ekkel, ha kihasználjuk a logikai műveletek ad- 
ta lehetőségeket. 

A program: 


18 PRINT tíg" 

2D PRINT "EEBBREBERZ ORSZ TAGJAIHAK JELÖLESE VETELKEDÜKREÖBI" 
38 FOR Izi Tü 18 

480 RERŐŰ AE(II 

59a PRINT AR(IDE 

eü FOR Jzi TŰZ 

Fi 


RERHO B$(ÜI: 


a PRIWT TABC191:BE Je aSR ia HERE. 
98 MET J 

198 PRINT 

119 MHEXT 1 


REETHT " BHIBITERMHESZETTUNGMANYI (CSAPAT IBNERZENYH" 


ad FOK Zsi TO 18 
130 FüR IJIzi Tü 7 
íg8 4F BECI da BIOLÜGIA" AHO BRTI .d4dI€5"FIZIKE" 
akin BF( 1 rerdiri" ; 
k- TK SÁT 


l) EVA: RAJZ, A A 
flies zF IZITÉH 


sz H.KkATI ,EMEKKAR RAJZ , KEMÍR 
JZ 3, JOCI ,KEESZ SPORT ,€ 
zsü 


nm 
s] 

7 
evi 
La 
5 
ra 
12) 
A 
14) 
4 
D 
12) 
14 
a 3 
ta) 
z 
JD 
. 


JELÜLESE VETELKEDÜKRE 


30 FOR Iz4 TO 18 

48 READ AP(II 

s5A PRINT AP(I)E 

ef FOR J-i TO 3 

7A READ BEH(I,J3 

ed PRINT TAB(IMIFBEKGI,J)t, "a 


ky 


MEZT J 
FRINT 
MEAT I 
PRIRHT " HIRHAA TEHAT IKAVERSEINYRE JAVRZOÜLTAKH" 
FOR iíiz-i TŰ 1 
FüR Jzi Tü 73 
IF EFRfTI.JS-öHAATEK " THEM K-KálFASTKI-ARÉI; 
MEXZT .J 
MEZ;T I 
PRIHT 
FOR I-i Tü K 
PRINT A$R-ZI:, 
I 


ím) 
hsllís lis 


ki 


5 4) MM 
5) NE 


mos om un 
mm mm Ip ny 


(1) 
2 


[a 
mM 
me 
vaj 


EB 


1119-SN 4.9 ERR 96 ERR 91 ERR 0 VER a 4 ERB 1.4 E at EGG ee eztet zet zetátsztzet ez! ÚNLÚ 
mV em 
[o ) 13 


A DATA ZSUZSA .ENMEKKAR , HATEK , SFORT EVA RAJZ , KI, 
3a ORTA LAZI,ü "FE Z kal 
Jn DATA ROBI ai s 
BH DRTA ANET JJ 
Ta ÚRTS FERI 


— 
0 
" 
5 
kej 
sz 
o 

a 
a 
a 
3 


id DIM AST1DI 

za kKzü 

38 PRINT tí" 

Já FERIRNT " HERENENERRBEKTZ ÜüRi Tagja IiAkKk JELÜLESE VETELKEGÜKRE 
ae. PELAIT 93 aFpFű EDnÜüsi" 

em PEINT "g 5 z JERSEHYH" 

e FENJT "Za NE 51 VERSENYT 

att PELIAT "dzs EG zETI YVETELKEDTAg" 

aa FETT "ús TE amaryi [ezsAPRATI VETELKEDÜGH" 
sot FEÍHT "E. dt Ké hi 


119 IHRUT "MELYIK HODONM BOLGOZUNK "FA 
Ten BRIMT "a" 
ií2z8 FRINT "EREBEBBEESZ ÜES TAGIJRARIMAK JELÜLESE VETELKEDOÜOKRE" 
1940 FÜR 1-1 Tü 198 
127 REAŐ ABR(íI: 
i69 PRINHT AR(I5: 
i17ü FüR J-i Tü 1, 
128 REFHO BB(I,; 
í99a PRINT TAB(C(193-FBE(I,JI23F","; 
sz HEAT d 
FRINT 
NEXAT I 


FOR 4151 TU 418 


OR .Jsi Tü 38 
ar x GOüTN 220.2389,419,44Aa,489a,519 
KzkKt1TABÉIKI-AP(I: 
MEST J 
HEAT I 
PRINT 


PRINT "áá" FAR: "ág" 

FÖR I5i Tü K 

PRINT A$(I., 

MEXT I 

EFE 

A3-"SFÖRTYVERSENYRE JAVASOLTAK HÍ" 
IF ES(I,I5-"5FÜRT" THEN GüTÜ 269 


37 ara era 
z A83-"KRESZVETELKEDÜRE JAVASOLTAK" 
szün IF EZfTI.15-"KRESZ" THEN GüTÜ 2e5ü 
gin cüTŰ era 
a18 §4-"MEPDORSLEMEKLESI VERSENYRE JAVASÜLTAK HI" 
gzki IF BSZTI.,J53-"EMHEKEKAR"?" THEN GüTŰ z8A 
aza cnara zza 
348 AS-Z"MIVESZSZETI VETELKEDÜKRE JAVASOLTAK HI" 
gazn IF RSEZT.I5-"EMNEKKART" ÜüR B$-(I,J53-"RAJZ" THEN L-Lt1 
38Aa IF L-2 THEM K-KEÍIABRÉEKI-APTI?:GOTÜ esAü 
47 GOT era 
3279 A§8s-"TERHMHESZETTUDOHANYI VERSENYRE örs EKESZNRLÉSSÉS 
aan IF BF(ÉI.I5-"BIOLOGIA"? ÜR B$fI,J53-"FIZIKA 
üR EFÉI,J92-"KEMIRA" THEN GüTŰ 250 
ada cüTn era 
zik AE-"HARTEHATIKA VERSENYBE IRVYAZÜL TAK HI" 
szk IF BSFÉI,.T5-"MHATEK " THERH GűüTŐ 28A 
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naaa GOaTÜ era 

54A OSTA ZSUZSA, EMHEKKAR , HATEK. . SFÜRT  ,EZR RAJZ A A 
an ORTA LACI , ÜRÖSZ , MHATEK. d , BEL -KEESZ.FIZIKA La 

sen ORTA RÜBI SPORT KRESZ 8 KATI. EMERKAR RAJZ , KEFHIA 
5rú DATA ANETT .HATEK RAJZ . 3, JOCI KRESZ, SPORT, HA 

ask OATA FERI SPORT RAJZ ,€ 


3.16 A sornyomtató használata 


OPEN le, fe 

Nyomtatás előtt az OPEN utasítással nyitjuk meg a file-t. A le jelentése: logikai 
egység száma 1-től 255-ig. A fe jelentése: fizikai egység száma. Ez nyomtató ese- 
tén 4 vagy 5. 

CMD fe 

A CMD utasítással átadjuk a vezérlést a számítógépről a nyomtatónak. Ha a 
CMD uzasítás után LIST következik, a gépben levő program listája megjelenik a 
papíron. Ha a CMD után PRINT utasítás van, a PRINT után írt változó értéke 
vagy szöveg megjelenik a papíron. 

CLOSE le 


A nyomtatás után a file-t le kell zárni. 
PRINT le 


Ha a CMD utasítást használtuk, a CLOSE utasítás előtt a PRINT le utasítással 
kell zárnunk a csatornát. 

Vezérlő kódok 

A speciális funkciók használata a PRINT le után írt CHR(X) kódokkal történik. 


Kód Funkció 

CHR$(10) soremelés nyomtatás után 

CHR$(13) soremelés 

CHR$(8) áttérés grafikus üzemmódba 

CHR$(14) áttérés dupla szélességű karakter módba 
CHR$(15) áttérés normál karakter módba 


A leggyakrabban használt vezérlő kódokon kívül a nyomtatók más ilyen kódokat 
is ismerhetnek. Ezt mindig a gépkönyv alapján állapíthatjuk meg. Ezek a kódok 
az MPS-801 típusú grafikus nyomtatóra vonatkoznaik. 
Ha a prognamnak sornyomtató outputja van, a következőképpen kell eljárni : 
— Az első nyomtatási utasítás előtt a sornyomtatót meg kell nyitni: OPEN le, fe 
- A kiíratás mindig PRINT le, X utasítással történik. A PRINT le utasítás után a 
PRINT utasításnak megfelelő szintaktikával írhatunk változókat, szövegváltozó- 
kat, konstansokat, szöveget, szerkesztő karaktereket. 
Pl.: PRINT 4.X PRINT 4.X PRINT 4, "szöveg" 
PRINT 4 TAB(X); "szöveg" PRINT 4, CHR$(13) 
— Ha a sornyomtatóra a programban tovább nincs szükség, vagy a program 
végére értünk, a sornyomtatót le kell zárni : 


CLOSE le 


PRINT USING 
A gép az USING utasítás mögött szereplő maszknak megfelelően szerkeszti az 
utána írt nem szöveges változót. Pl. PRINT USING "ftfftttt EHE" GX 
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A gép a kiírt változót a tizedespontra illeszti. Ha az utasítást sornyomtatón kí- 
vánjuk használni, a PRINT helyett PRINTZÉ le, USING . . . használandó. 

Ha a változó a tizedesponttól balra több helyiértéken tartalmaz számjegyeket, 
mint a maszk, a gép a nyomtatási képben a számjegyek helyett a maszknak meg- 
felelő darabszámú csillagot jelenti. 


193. Vegyük észre: 
— Hogy a programot ki tudjuk nyomtatni, ahhoz először az OPEN le fe uta- 
sítással meg kell nyitni a file-t. 
A CMD fe utasítással át kell adni a vezérlést a nyomtatónak. 
- ALIST utasítással el kell indítani a program listázását. 
A listázás végén le kell zárni a csatornát, PRINTTf le utasítással. 
A CLOSE le utasítással le kell zárnunk a file-t. 
— Ezeket az utasításokat nem kell beépíteni a programba, hanem sorszám 
nélkül, parancsként is alkalmazhatjuk őket. 
A program: 


PETNT "új 4 j ! 
FüR íz1i TO 48 c ELGSEÉ 
FEINT "g" 

MHEA;T I 

EHD 


im mm ím ím 


Dúl) EE SL ÜL ESÉL ) EL 
he! 


71 
ze 


194. Vegyük észre: 
- A Commodore gépekhez használatos nyomtatók általában 80 oszlopos 
papírra dolgoznak. Így egy sorban 80 db A betű fér el. 
- A gép az A betűket akkor írja egymás mellé, ha az A betű után pontos- 
vesszőt használunk. 
A nyomtatás előtt meg kell nyitni a file-t. 
A nyomtatás után a file-t le kell zárni. 
- Ha a programban CMD le nélkül használjuk a PRINTTFÉ 4 utasítást, an- 
nak jelentése egy üres sor lesz. 


A program: 
l8 OPEN 4.4 
zü Füz 17-i Tü 5 
za EüR J-i Tü Z8 
ad FRINTHA.LUAV E 
aza MENT J 
se HI a 
7íid IHTH4A 
eds) E a 
am 
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Az eredmény: 


RARRARRARARRARRARARARARRRARARARARARARARARRANÁAGÁHÁARAÁÁRARÁRARRÁRAABARÁARA AR ÁRRARARARARÁARARRA 
RARARARARARARARARARRARARÁARÁARARÁAARÁARHÁRRÁARARÁARÁAARÁÁÁÁAÁAÁAÁÁARÁAÁRRARRÁAFÁARÁAÁAÁRARARAARARAAR 
ARARRARARARARARÁARABARARARÁARARRÁARASÁAÁARARAÁBÁARARARÁARAÁRARARÁAÁARARARARARARARARARARARARA 


ARRARARARARARARÁARARÁARARRARARA AR AARÁARARRARARÁARARARARARÁARARÁARARARARARARARRARARARARÁAÁARAÁA 


195. Vegyük észre: 
—- Az egyes karakterekből a gép soronként 80-80 darabot tud rajzolni. 
— Üres sort húzhatunk a vezérlőkódok segítségével is. A soremelés kódja 

CHR$(13) 
— A file-t a nyomtatás előtt meg kell nyitni, a nyomtatás végeztével le kell 

zárni. 
A program : 
NPEM 4.4 
FOR I-1 Tü 4 
FüR .T-1 s 
PRINTHA "4"; 
MEA;T J 
PRINTH4A , CHRET12: 
FOR K-1 TO Am 
FRINTHA LSE 
NEXT K 

PRIWMTHA LCHREHF(IZ: 

MEXZT I 

PRINTH4A 

CLOSE 4 

END 


UJ 5 4 MM 


ii) nam 
BUMEENRNNNDDNNINID MD III 


1-5 ee 
no INN mm 


Tee VE 0 TE 9 


Az eredmény: 


FEE EPE LEPLE LEE LETE eket tt etetett etetett etetett tett tetett etttttttt ett té tttt 
RAER kk kk kk ik kekit kkrktktkktkktkktüértitkikkiktkiítitktiktittktktitkkkk 
PARA AA LETERE TELEP ETEL EE EE t etetett etette tett tettetett etette tet ett tt b betebtttt 
TRÁK GR ÉGŐ le e ák b ÁR A A ÁÁ AK ÁE Ad ka ÁK ak alk AK alk GÉ alk lk alk alk alk alk ak alk ak akk 1k ak ák alk alt akk alk ák ak alk ak akk kak kk kk kk 
EA A AAA PAPA EE EE AE EE EE Ebet tt etette tetett tttttttttt tte tettet tetett tébttbt 
khittittkirkktktiirkikittrikktikkitkitkkrttitktkktkittitkkkktktiktréttktkittikttkitikkke 
VEGE EEEE ELLA L EE L ALA LEbetetttett tti tettetett tettetett et tt tte tettetett tt tet tetettt 


kikitkktitíkkikkrikikkiikktkkitktittikkkitkkilkikkkitkitkikkikkkitrtékrttiktkiktitkikkákó 
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196. Vegyük észre: 
—- Ha dupla szélességű karakterekkel dolgozunk, akkor egy sorba csak 40 
karakter fér el. 
- A dupla szélességű üzemmódba való áttérés vezérlőkódja CHR$(14). 


A program: 
12 OPEN 4.4 
1727 PRIMTHA CHEZRT14d:; 
zh FüR I-1 Tü 4 
za FÜR J-i TŰ da 
48 PRINTH4A.Tá"; 
ad MEAT d 
eli FRIMHTH4A, CHREC(1737 
r7rA FüR K-1 Tü 4Aa 
sű PRINTH4A, "ák"; 
aa MHEXT K 
199 PRINHTH4A CHRERTI1Z? 
119 MEXT I 
1zű FRIMTH4A 
ta8 ELÜSE § 
idő EMH 
Az eredmény: 


197. Vegyük észre: 
- Ha egymást követő sorból minden páratlan számú normál, minden páros 
számú dupla szélességű üzemmódban íródik. 
- A gép alaphelyzetben normál karakterekkel dolgozik. Ha már dupla szé- 
lességű karaktereket ír, arról vezérlő kóddal térhetünk vissza normál 
üzemmódba. Ez a vezérlőkód a CHR$(15). 
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A program: 


10 OPEN 4.4 

eg FOR I-1 TO E 

3a IF -INT(ÉI/22:Xx2 THEN X-1d:GOüTO SA 
4aa x-i3 

at PRINTH4A,CHRF(X) 

BO PRINTHA , "COrHNDORE 1E" 

rA NEST I 

za PRINTH4A 

A CLOSE 4 


Az eredmény: 
TORHONORE 1E 
€— Ca rar ea rni FE 1 
COPHIONOÜRE 1Ee 
— a Hara et La FE 1 E 
COPPINDNORE 1E 
€—- ca rite Le FE. 1 —. 


198. Vegyük észre: 

— A kinyomtatható karakterek a 33-—129 és a 161—191 CHR kódok között 
helyezkednek el. 

- A többi karakter kinyomtatása nem célszerű, mert egyes karaktereket a 
gép vezérlőkódként értelmez, így nem a várt karakterek jelennek meg, 
hanem áttér valamilyen speciális üzemmódba. 

A program: 


FOR I51i1 Tü 4 

READ M(I) 

MEXT I 

OPEN 4,4 

FOR J-1 TO 4 STEF Z 
FOR J-KÉJ) TŰ KÉJáí.3 
ASZCHRE(I) 
PRINTH4A ,TABÁ 199 IFTRE(ZAI: AT 
MEXT I 

MEXT J 

CLOSE 4 

CATA 33.189.181.191 
Etjü 


új MM e 
fas ill ho flltro ! 


53 


yi 


mm mg 


ix 


Mr b ma íj) d AJ Mm íg b e 
[401 


íg MD a (DD 
m 


[ot 
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Az eredmény egy részlete: 


Mm 1) 


Ú ú úi Ú 


a] H 

E Fk 
2 8 
zet ; 
1a ai 
41 a 
ám 
47 k 
aa 


199. Vegyük észre: 
— A fejléc kiíratása dupla szélességű üzemmódban történik. 
— A szorzótábla elemeinek kiíratása előtt vissza kell térni normál karakter- 
módba. 
Elfogadható tablóformát kapunk a TAB(X) felhasználásával. 
A program: 
PRINT "ggg" 
BERTIJT 0" HENEREKEREKRENER E 
5 IJFINT " HAllraz 2 
48 ÜüPEN 4,4 
aa ERIIMITH4A CHRET14d?: 
ERINTHA .TSBT1ERI?K:T SZÜRZÖTSELAJAT" 


FERIHTHJA  CHREX1Z? 


zZaTRELA SÖRNYOMTATORA BIRTA" 
ORZOTABLAT IRJUK "FA 


NM 
D 
saj 


209. Vegyük észre: 

— A fejlécet dupla szélességű karakterekkel íratjuk. 

— Az adatok kinyomtatása normál üzemmódban történik. 

— Mivel a telefonszámokon kívül a többi adat nem egyforma hosszú, a 
TAB(X) használatával nem kapunk szép táblázatokat. 

— Ha meg tudjuk oldani, hogy a gép az egyes adatokat mindig ugyanolyan 
hosszan jelenítse meg, a TAB(X) segítségével újra szép táblázat nyerhető. 

A megoldás menete: 

— Mivel egy név általában nem hosszabb 30 karakternél, vegyünk fel egy 
30 üres karakterből álló füzér változót (50. sor). 
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A begépelt nevet, ill. címet fűzzük össze ezzel a 30 üres karakterrel (200— 

220. sor). 

— Az így kapott karakterváltozók első 30 karakterét véve (230—240. sor) min- 
dig ugyanolyan hosszú sztringeket nyomtatunk ki. 

— Ha az eredeti sztringváltozó hossza kisebb volt hanmincnál, akkor ez a 
műveletsor kiegészíti azt üres karakterekkel. 

— A megoldás korlátai: 30 karakternél hosszabb név, ill. cím nem nyomtat- 
ható vele. 

A vrogram: 


1a PRINT "ig" 
za INFUT H§ 

za IRHPRUT : ES" 794 

an DIM NECSHISDIMH CETXITDIM TRÜXI 

zi Biz" 

eü PRIMT "ú" 

7E PRINT TABR(A4l-AE:T ÜRZ TAGJAIHAK HORTA I HABAEI" 
za FOR i5-i Tü - 

SA INPRUT "MEW "eler I; 

1929 IMHPRFUT "CIPOT I2 

119 INEFUT "TELEFOWMNMSZAM "ETTI; 

1227 dosh I 

139 CFEM 4.4 

1381 PRINTHA, CHRE(14J 

15 PERINTHA4A.TABY4ÁI APT ORE TAGJAIHAK HORTAI" 
LEM PRINTHA  CHER(1Z3 

í70 PRIIWTH4A , "NEV": THBT1325F "LAKCIM" :TABESBI: "TEL. SzAF" 
189 PRIMHTH4A CHEFR(12 7? 

198 FOR I-i TŰ 

zöm MHE-tieil. FC-t trI; 

217 MHEz-MiRtES 

ze €s5-CEsHBE 

e3a MEZLEFTE(NE, ZH: 

egű Cs35-LEFTEf(CE,.3H3 

esü PRINTHA ECET ÉI: 

z HEAT I 

e FRIIJTHA 

z ELOSE 4 

z EHID 


201. Vegyük észre: 

— Hogy a pénztárgép működése követhető legyen, érdemes az adatokat 
képernyőn is megjeleníteni. 

— Mivel egy pénztár esetében nem mindig tudjuk előre megmondani, hogy 
hány árucikkel dolgozunk, ezért egy kapcsolót kell alkalmazni, ami el- 
dönti, hogy további rögzítés történik-e vagy a végösszeget akarjuk-e ki- 
íratni. 

— Erre szolgál a 100—120. sor. 
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— A nyomtatás képe akkor lesz egy számlának megfelelő, ha a kiírt szá- 
mok esetében a tizedespontok egymás alatt helyezkednek el. Ennek a 
megoldására használjuk a PRINT USING utasítást. 

— Az USING után megadott maszkot a feladatnak megfelelően kell meg- 
szerkeszteni. Egy átlagos boltban a vásárlás összértéke egy vásárló ese- 
tében nem szokta meghaladni a 99999.99 Ft-ot. A filléreket nem szokás 
a 0.01-nél kisebb értékben jegyezni. 


A program: 
tö PRINT "úg" 
zH FRINT "EBBEBRREBAEEBBBEETJIZ TERSEP HISISI" 
zA 5-A 
4 üFEM 4.4 
58 FRIMNMTHA . "EZAMLAT 
EZ PFERIHTHA4 CHER(1H: 
ri IHFUT A 
en 5-23iő 
39 FERIHTHA PUSZIHG HHHHH.HHT FA 
18 GET AB 
117 IF 6§$§-"4" THEN GűüTŰ FA 
1283 IF A§§4-"-" THEM GüTÓ i1díig 
127 GüTŰ 1AAm 
198 PRINT "OSSZESEN" 
izti FRINT 5 
1eü PRINMHTHA,T-—-——— " 
íra FRINTHRA  USIMNG HHHHH.HH" S 


Az eredmény például: 


(n 


zati. 


3.17 A kazettás egység 


A kazetta alkalmas programjaink tárolására. 

Program mentése a kazettára: SAVE"programnév" 

Programtöltés a memóriába: LDAD"programnév" 

Ha a kazettás egység dolgozik, a képernyőn nem látunk jeleket. 
A mágnesszalag alkalmas adatok hosszabb ideig tartó tárolására. 


OPEN le, fe, m, "file név" 
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Adatok kiírása mágnesszalagra : 

— A magnót a kiírás megkezdése előtt meg kell nyitni. 

— Íratás esetén a logikai egységszám (le): 1—255 lehet, a fizikai egység száma 
(fe) mindig 1, a mód (m) mindig 1. 

-— Ha a kiírás folyik, a képernyőn nem látunk semmit, így a magnó és a képernyő 
együttes használata nem lehetséges. Ha mégis szükség van mindkét egységre, 
azt a két egység szakaszos használatával oldhatjuk meg. 

— A file névre azért van szükség, mert a visszaolvasáskor ennek alapján találja 
meg a gép a keresett adathalmazt. 


PRINT le 
— Az adatok kiíratása a PRINT le utasítással történik. 
-— Ha egy PRINT le utasítással több adatot is akarunk íratni, azokat egymástól 


pontosvesszővel és a CHR$(13) vezérlőkóddal célszerű elválasztani. Pl. 100 
PRINT 1, X; CHR$(13); A$, CHR$(13); B$(I). 


Adatok visszaolvasása magnókazettáról. 


- A mágnesszalagot visszaolvasás előtt is meg kell nyitni. 

- Olvasás esetén a logikai egységszám 1-—255 lehet, a fizikai egységszám min- 
dig 1, a mód mindig 0. 

Az adatok visszaolvasásakor a file névnek meg kell egyeznie a kiíratáskor lét- 
rehozott file névvel. 

Az adatok visszaolvasásakor sem használható a képernyő. 


INPUTÁ le 

— Az adatok visszaolvasása az INPUTSÁ le utasítással történik. 

- Ha egy INPUTÍ le utasítássai egyszerre több adatot akarunk beolvasni, az 
adatokat vesszővel kell elválasztani egymástól. Pl.: 100 INPUTZÉ 1,X,A$,B$(I) 

—- Az adatok beolvasásakor nem szükséges az egész állományt visszaolvasni. Ha 
a file-t lezártuk, az adatok visszaolvasása csak a file elejéről történhet, új 
OPEN utasítás után. 


ST 

- A lefoglalt változó mindenkori INPUT-OUTPUT művelet lefolyásáról ad tájé- 
koztatást. Ezért visszaolvasáskor az ST értékét folyamatosan figyelni kell. Ha 
ST—64, ez azt jelenti, hogy beolvastuk az utolsó adatot a file-ból, így az ol- 
vasást be kell fejezni. 


CLOSE le 

—- Az INPUT-OUTPUT műveletek végén a file-t le kell zárni. 

A mágnesszalagon az adatokat csak sorosan tárolhatjuk. Mivel a magnó kis for- 
dulatszámmal működik, célszerű a file helyét megjegyezni. Ha a magnóval akar- 
juk az adott file-t megkeresni, az esetenként igen hosszú időbe telik. 


202. Vegyük észre: 
—- Az írás előtt a file-t meg kell nyitni, kiíratás után pedig le kell zárni. 
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A program: 


FRINT "1990 DE 
FüR I-i Tü 

PEN 1siris 
FOR I-i Tü ida 
M-INT(RMUf13: 


7 ll lk Tá Ka) 


4 07) 4) NM 
[LK 


a FRIINTHI.KH 
a MNMEZT I 
ZA ZLÜüsSE 1 
sa EMO 
203. Vegyük észre: 
- Visszaolvasás előtt a file-t meg kell nyitni, a végén pedig le kell zárni. 
— Minden beolvasott érték után az ST értéktét ellenőrizni kell. Ha ST—64, 
az olvasást be kell fejezni, a file-t le kell zárni. 
A program : 
18 FERINT "4" 
ez IHRUT " EHEBBEBEANY SZAMOT OLYVAZUIUK VISSZA"? EM 
38 H-IRHTÁÉM 5 fa It R( szg ; 
38 üFEM 1.,1.,9. "RAlnüt 
an FOK I-i Ta FI 
Sí IMRFUTHiÍS.RfI: 
rk ÍF -T-84 THEN GüTŰ 38 
gi MEST I 
a ELÖSE 1 
18 FüR I-i Tü HM 
ii8 FRIINT IFR-ZI: 
1z8 MESAT I 
137 EH 


204. Vegyük észre: 


VELETLEHSZAM 
SOA:MEXT I 
"RAaynanm" 


r3931t1 


KAZETTÁRA" 


- Mivel egy őrs általában 3 fősnél nagyobb, és 15 fősnél kisebb, érdemes 
ezekkel az értékekkel dolgozni. 


— Hogy a 90. 
beiktatásával. 
A program: 


FRINT 
IHPUT "HANY 
IF MX-3 ÖR 
H-IHTÉM: 
att 0 EN a cl jó HB) 
FüR I-1 Tü H 
ÍIHFUT "NEV e NBÉl; 
NEAT 1 


ha 


neg 


TI es 


fsz 
ix 


FESS 


ú 
[ői 


ko 


5 


m o nn 
ho 


ag 


3 


mm 
í5) 


AZ 
Mő:15 THEN 


sor olvasható legyen, a gépet várakoztatni kell egy ciklus 


: HW 
ia 


aka" 
sara 
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dí PRINT "§ KIMENTES ELINDUL" 
128 FOK I-i Tü 5998:MHEAT I 

119 OPEN 1.,1.,1, "NEVSÜR " 

12 FÜüK I-1 Tü N 

139 FRINFH1.WHpiI: 

1dd ÍINEXT I 

139 €LÜüSE 1 

isAd RFRINT " A KIMENTESINEK VEGE" 
172 El4dü 


205. Vegyük észre: 
— Mivel a magnó és a képernyő egyszerre nem használható, a memóriába 
való beolvasást és a képernyőre való kiiratást külön ciklus tartalmzazza. 


A program: 
12 FRINT "úg" 
eli CIM MHEr15. 
389 ÜPEN 1,1,9,"NEVSOR " 
ga -i 
24 I-I-41 
BE IINPUTHI,M$(IJ 
72 IF ST-X:B4 THEN GOTO 5Aa 
8 CLOSE i 
sa FüR 541 Tü I 


194 PRINT JENMELJgI 
117 NEXT J 
128 EMü 


206. Vegyük észre: 
— Egy PRINT le-t használva az adatokat egymástól el kell választani (100. 


sor). 
A program: 
a FRINT "es" 


7 


INHRFUÚT "HANY Füs Az OSZTALY" FI 
IF M-ig üR MHó-dz2 THEM GiüTú ii 
N-INTÉMS:FODIM NEX(MSOIM AÁMI 


ü) Tom e 
ún 


Í Kó 


dili FÜR I-i Tü HM 

si IMFUT "NEV" EMH(-I: 

89  IMPRUT ETAMULMANTI ATLAGAT FAK 1Í 7 
70 NEAT 1 

sm 


OPEN 15171. "ATLAGOK" 


gű Fük 1— 1 Tü H 

1927 PRINTH1.MNME(CISFCHESÉÍIÍ35 FALI, 
118 MHEZT I 

1eü ELSE 1 

129 Erwn 
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207. Vegyük észre: 
—- A névsorba rendezést megoldhattuk volna a szomszédos elemek cseré- 
jének módszerével is. 


A program: 

18 PRINT "úg" 

za PRINT "OSZTALYNMEVSOR ES TANMULMANYI ATLAGOUK. " : 
DI NE(425:-A(4EI 

39 OPEM 1.,1.8, "ATLAGOK " 

3A FÜR I-i Tü 42 

nű IMNFUTHIi.tiRTII AKI; 

ea IF ST:84 THEN GOTJ 348 

TA MHEAZT I 

A ELOSE 1 

aA FOR J-i Tü 1A 

tam PERIMT MEXJI FAJ 

118 MHEZT .I 

122 PRIHT "§ BEOLYVASAZ VEGE" 

1389 PRINT HRENCEZES ELIMUCUL" 

iígdü FOR J-i Tü 1-i 

1590 FüR kKk-Tii Tü I 

189 IF ME(JOI-HEBÜK I: THEH GOTÜ ZAR 

170 vE-tjbérJ I VEAKJI 

1988 ME. IS-MECKI ERTI I-REKI 

igű MEGK S-VBEREK ; Et 

zok MEZT K 

ig MEXT J 

ezű FOR Jzl TO I 

szü PRINT MECJI ALIG 

zdgü MEXST J 

zsü En 
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Vegyük észre: 

- A file adatainak módosítása csak úgy oldható meg, hogy az adatokat 
beolvassuk a memóriába, itt elvégezzük a változtatásokat, majd a javí- 
tott adatállományt újra kiíratjuk a kazettára. 

- Egy tanuló távozása esetén az ő adatait ki kell törölni a file-ból (170 . . . 
230. sor). 

—- Ha új tanuló érkezik, meg kell vizsgálni, hogy az osztály létszáma nem 
érte-e el a 42-t, mert akkor osztálybontást kell alkalmazni. Ha ez nem 
áll fenn, a tömbbe, ill. a file-ba kell írni az adatokat (240 . . . 290. sor). 

— Mivel félévente a tanulmányi átlagok tömeges változtatásával kel! szá- 
molni, ezért itt célszerű a változások rögzítésére két munkatömböt hasz- 
nálni (V, v). Az adatok módosítása a 300 . . . 400. sorban történik. 

— Ha az összes szükséges javítást végrehajtottuk, az adatokat kazettára 
rögzítjük. 

— Mivel a 206. feladat mint rögzítő program, a 207. feladat mint adatállo- 
mánnyal munkát végző prograrn és a 208. feladat mint az adatállomány 
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karbantartását végző program egy rendszert alkot, ezért az újonnan rög- 
zítendő file nevének meg kell egyeznie az először rögzített file nevével, 
vagyis "ATLAGOK" néven kell rögzítenünk. 

A program: 


1ü FRINT "4" 
eü ÜPENM 1.,1.,8a, "ATLAGOK " 
39 Ízi 
48 IMNPUTHI,MB(C(I:,ArI? 
5 IF ST-84 THEN GüTO 78 
sa 1-I-ií1fGüTŰ 4Aa 
TO CLOBE 1 
am PRINT "íg" 
sű PRINT "HEBBBEBBBEEHORTOK HODOZITAZA HIETE" 
129 FRINT "EBBBBBIi. ELTAZOZOTT" 
117 PRINT "ERBBRBBE. ERKEZETT" 
ti PRINT " HEHEIHEBBEZ . ADATA VALTOZÜTT" 
1. PRINT " EülRRBJEKt. JAVITOTT ALLOHANY ROGZITESE" 
1 IMPUT X 
1 ür xx GOTOŰ 17TA,24a.3290,41a 
1 PRINT "ILYEN LEHETOSEG NIMCS":GOTC 38 
1 K-A 
1: FüR J-i Tű I 
fa IMHPUT "ELTRVOZOTT TANULO MEYE ":NE 
züm IF MEzi4$(r(J) THEM GOTÜ ezen 
2190 K-KEL:MNS(KI-NB(ID:A(KID-AKII 
2eR MEXT J 
23A I-K:GOTÜ esAa 
2dAn IF 1-42 THEN PRINT "MEN HELYEZHETŰ EL AZ CSZTELYERNT A 
GüTO 58 
a INPRUT "A 


z UJ TAMULOÓ NEVE" FM 
IMPRUT "AZ UI 


) 


Ki TANULA TANULMÁNYI ATLAGBA TFH 
A I-Ii1 
a M$ÚCI2-MERTRÉI3-A 

nüarTa an 


IMPUT "HANY TAMHULO ADATAIT JAVITJUK "FH 
FüR Jz1i Tü H 

INPUT "A TAMHULO MEYE": VB(HOD 

INPUT "TAMHULMANYI ATLAGA"FV(HI 

MEXT J 

FOR J-i Tü I 

FOR Kzi Tü H 

IF VECKSzZEHBLOJ) THEM A£JD-V£KI 

NEXT OK 
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419 aPEN 1.1.1;."ATLAGOK " 

gJen FOR .1-1 TO I 

4328 PRINTHI1.,.N$(ISFOCHEHR(IZ3I FREI I 
4á4gű NEXZT . 

4530 CLOSE 1 

geg END 


3.18 Mit csinál a gép? Elemezd a programokat! 


A 209. és a 210. feladat a változók cseréjével foglalkozik. 


209. 


210. 


211. 


Ha a begépelt A érték nem kisebb a B begépelt értékénél, a gép fel- 
cseréli A és B értékét, majd kiírja azt. 
- Ha az állítás nem igaz, A és B értékét a gép változatlanul írja ki. 


— Az A, B, C értékét begépeljük. 

- Ha A—B vagy B nagyobb, mint C, a begépelt értékeket változatlanul írja 
ki a gép. 

— Ellenkező esetben C felveszi B, A felveszi C értékét, B változatlanul ma- 
rad. Az így előállt értékeket a gép kiírja. 


Elemezd végig a programokat! 


a) A—6 b) A—2 . 6) A—B d) A—ó 
B—5 B—2 B—0O B—7 
C€—11 C—4 C€—10 C—6 

e) A——3 f) D—4.5 g) C—84 h) A—21.2 
B—6 B—16.2 
C—7 

i) A—5 
B—-1 
C—20 


A 212 ...218. számú feladatok a ciklusokkal! foglalkoznak. 


213. 


214. 


— A tiszta képernyő egy sorának annyiadik oszlopába helyez a gép egy -- 
jelet, ahányadik sort húzza. Negyven sor után újra az első oszloptól kezdi 
az írást. Ezért úgy érzékeljük, mintha a képernyőn 40 karakterből álló 45 
fokos szögben húzott vonalak futnának felfelé. 


-— A gép a rajzolást a tiszta képernyő első sorában kezdi. 
— Minden DATA-ban megadott jelből egy sornyit húz a gép, majd a 100. 
sor miatt az egészet kezdi elölről. 


- Az INPUT utasításnál kapott sztringet a gép a 40. utasítás miatt végtelen 
sokszor kiírja egymás mellé. 


- A gép 100 darab csillagot ír ki egymás mellé a képernyőre. Ezáltal egy 
teljes képernyőnyi csillag jelent meg. 


A három egymásba skatulyázott ciklus helyettesíthető egy ciklussal is. 
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A program: 


FOR I-1 Tü 149 
PRINT" Xx"; 
NEXT I 


- A gép 100 darab 2 és 200 közötti számot jelenít meg egymás mellett a 
képernyőn. 


- A gép 100 darab 1 -201 közötti számot jelenít meg egymás mellett a kép- 
ernyőn. 


— Kiírja a gép, hogy az első húsz szám tetszőleges értékkel osztva milyen 
maradékot ad. 


A 219 . . . 223. feladatok a logikai kapcsolatokkal foglalkoznak. 


219. 


220. 


221. 


222. 


223. 


4 
— A gép két csillagot ír ki, ha a begépelt X érték osztható 8-cal, egy csil- 
lagot ír ki, ha nem. 


—- Ha a begépelt A érték pozitív és B értéke negatív, a gép nem csinál 
semmit, a program megáll. Ellenkező esetben a gép letörli a képernyőt, 
majd a közepére két csillagot ír. 


Ha a begépelt karakter csillag vagy -- jel, a gép adott karakterrel tele- 
írja a képernyőt. A gép addig váraikozik, amíg a két kijelölt karakter 
valamelyikét be nem gépeljütk. 


— A gép egy véletlenszerűen előállított 1 és 10 közé eső számot vizsgál. 
Ha ez a szám nagyobb, mint 5 és nem osztható 3-mal, a gép kiírja: 
ALMA, ellenkező esetben: KÖRTE. 


a-2; b-3; c-ó; d-5; e-1 ; f-4 


A 224 . . . 227. feladatok a sztringfüggvényekkel foglalkoznak. 


224. 


225. 


226. 


227. 


—- A gép folyamatosan kiírja az első I darab szám összegét, egészen 9-ig. 
— A gép folyamatosan összefűzi az első I darab sztringet, egészen 9-ig. 
Ezeket ki is írja. 


- A gép X értékének megfelelő hosszt vág le az A$ sztringváltozó bal ol- 
daláról, és ezt az üres karaktert tartalmazó B$ sztringváltozóval együtt 
kiírja a ciklusnak megfelelően addig, míg X értéke nem lesz nagyobb 
10-nél. 


—- A gép ugyanazt az eredményt produkálja, mint a feladat. 


A 228. és a 229. feladat az idő mérésével foglalkozik. 


228. 


— A gép kiírja, hogy egy ciklusmag nélküli FOR ciklus 100-szori futásához 
hány másodperc szükséges. 
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A gép egy véletlenszámot generál 33-94 között. Ezt a szálimot írja a 
képernyőre. A gép azt az időt méri, amíg a játékos megtalálja a vélet- 
lenszámhoz, mint CHR kódhoz tartozó karaktert. 


A 230 . . . 237. feladatok a grafikával foglalkoznak. 
230. 

— A képernyőn kijelölt papírt folyamatosan beszínezi az összes lehetséges 

színnel, és ezek összes árnyalatával. 
231. 

- A gép a képernyő felső sorából egyszerre húz függőleges vonalakat min- 

den tizedik oszlopban. 
232. 

- A gép az első oszloptól kezdve, minden tizedik oszlopba függőleges vo- 

nalat húz a képernyőre. 
233. 
- A gép a hátteret fehérre, a papírt feketére színezi, majd teleírja a kép- 
ernyőt vörös -- jelekkel. 
234. 
- A gép vonalat húz a képernyő 0,0 pontjából a 200,200-as pontjába. 
235. 

- A gép hét darab 40 egység sugarú kört rajzol, melyek középpontjai a 

100. sorban találhatók. 
236. 

— A gép egy négyzetet rajzol a képernyőre. A felnajzolt ellipszis közül az 
egyik a vízszintes, a másik a függőleges oldalai mentén érinti a négy- 
zetet. 

237. 

- A gép a képernyő közepére egy kört rajzol. Ha a kör kerületén kijelöl- 
nénk a vízszintes és a függőleges átmérőknek a körvonallal alkotott 
metszéspontjait, ezek négy pontot adnának. A gép ezek mint középpon- 
tok köré az eredetivel azonos sugárral köröket rajzol. 

3.19 Néhány vegyes feladat 
238. Vegyük észre 

- A lineáris függvény általános képletéből a konkrét függvényt úgy kaphat- 
juk meg, hogy megadjuk az A és B értékét. 

— Egy linerális függvény növekvő, ha a nagyobb X értékekhez tartozó Y 
értékek is nagyobbak. 

- Ha a nagyobb X értékekhez tartozó Y értékek kisebbek, akkor a függ- 
vény csökkenő. 

— Ha bármilyen X értékekre az Y tényezők állandók, a függvény menete 
állandó. 

A program: 

id FRIINT "44" 

el FRIRNT "BEKES I NESRIZSZ FV MEHETEK HEGHATAROZAZA KHER" 
39 FRIRHT "EREBBJ FV ALTALANOS KEPFLETE 7-AőxKHEHIR" 

ga IINMRUT "HENNYI § ERTEKE": A 

nai 


IHFUT "MEMNYI B ERTEKE" :B 
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en X1--19 


rű x2-in 


en YI1-XIXATB 
39 7"2-A2ZKATB 


lam IF v2;Yi THEN PRINT "PBBBERBBBBIRIGI FV NOVEKYO"ST:GOTO 130 
118 IF Y2fYI THEN PRINT "BBBBBEBBEBHEN FV CSOKKENO":GOTO 130 
129 PRINT "EBBBBBBBBEBEG FV ALLANDO" 

138 END 


239. Vegyük észre: 
- Üdítőből csak egész darabszámú vásárolható. 
- A darabszámot az egységár és a pénzösszeg segítségével határozhatjuk 
meg. 
- A további adatok ezekből számíthatók. 
A program: 


m 


PRINT "íg" 

PRINT TABÁL1): "KALKULALO PROGRAM"! 

PRINT 

INPUT "A PENZOSSZEG":P 

INPUT "AZ EGYSEGAR";E 

D-INT(P/E) 

Mm-DKE 

M-P-O 

PRINT 

187 PRINT P;"FT-BOL "DD; "DB":E:"FT EGYSEGARU TERMEK" 
118 PRINT "KAPHATOLEZTFOF"FT ES MARADTEMETFT" 
189 END 
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240. Vegyük észre: 

— Ha a szorzótábla elemeit tömbben tároljuk, akkor véletlenszámmal ge- 
nerálva a tömbindexet, a gép maga választja ki a műveletet és a tömb- 
ből az eredményt. 

— A jó válaszok számát figyelni kell, hogy azt a végén a gyakorlást végző 
személlyel közölni tudjuk. 

— Ha rossz a válasz, ezt is jelezni kell, és meg kell adni a jó megoldást is. 

- A megoldási időt az első feladat megjelenése és az utolsó megválaszolása 
között mérjük. 

A program: 

FRINT "44" 


DIM A(2AaI 
PRINT " 


2 asz 
Fötss 
ús 


ag 


5 


K. ORÖLUNK EFA 
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39 FÜR I-1 TO 19 

1290 A-INTÉRND(É1:x295ii 

119 PRINT AFSöxVPAPSZOg 

ien INMFUT B 

139 IF B-A(A) THEN FRINT "Jő SAGA ÁT SVEB :K-kil:GaTú 152 
148 PRINT "NEM JO. A Jűü VALASZ" FAÁ 

158 NEXT I 

1869 FRINT "u" 

178 FRINT " 
189 PRINT "HEHEGOLOASI IOO"FTI/8AF "HASODPERC " 
1584 EHD 


241. Vegyük észre: 
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—- Egy nyolcadikos tanulót alapul véve egy tanuló 13 tantárgyból kaphat 
érdemjegyet, ezek begépelése akkor egyszerű, ha a gép kiírja, milyen 
tantárgy érdemjegyét várja. Célszerű a tantárgyak nevét DATA-ban tá- 
rolni. 

- A DATA-ból az adatokat tömbbe olvasva, a tömbindex egyértelműen 
meghatározza, hogy melyik tárgyról van szó. 

- Ezért érdemes definiálni ugyanilyen indexeléssel egy másik tömböt, amely- 
ben a tárgyhoz tartozó jegyek összegezését végezzük. 

- Ha egy tanuló érdemjegye elégtelen, ez most a tantárgyi átlag szem- 
pontjából nem jelent semmi különös elbánást. 


A program: 

PRINT "41" 

PRINT "EBERABEBZZ OSZTALY ATLAGA TARGYAINKENT HŰgggg" 
IHPUT "HANY FOS Az OSZTALY FA 

PRINT "íg" 

CIM 6AZr135:DIM A3xT137 

FüR zi TO 13 

REF APT T: 

MHEA;T I 

FüR .J-1i Tü A 
ii PRIMHT OJ". TANULO JEGYTEIHH" 
Aa FÜR I-i Tü 13 
E PRINT AS(I3s 
ii IMHFUT A 
d IF A-23 üR A-(1 ÖR AZ GSHINTÉRAI: THEM PRINT "ROSZZ" :G0üT0 
a ArIsz-ArI:tA 
a MEST I 
id PRINT ".d" 
ti MEXT J 
8 PRIHT "7.4" 
A FRIHT "AZ OSZTALY TáljiLtANYI ATLAGA TARGYANKENT BÁ" 
a FüR I-i Tü 13 
a FRINT AZÉI:FTABÍZAI FAT III/A 


ETETEJETETE TEJET ETETETT 12 FELRORTBOÓL "7 KK: "Jú MEGOLDAS" 
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MEXAT I 

END 

DATA MAGYAR NYELV MAGYAR IRÜOALOM,ORÖSZ , TÖRTENELEHM 
DATA FIZIKA S,KEMIRA,BIOLÖGIA , TECHNIKA RAJZ , ENEK , 
TESTNEVELES 


242. Vegyük észre: 

- Négy különböző művelet végzését kell ellátnia a programnak, ezért ér- 
demes menüvel és a választás után ON X GOTO-val dolgozni. 
Életkortól függően a tanulók csak adott számkörben tudnak művelete- 
ket végezni. Ezért fontos megadni azt a lehetőséget, hogy a használó 
maga határozza meg, hogy mekkora számokkal kíván dolgozni. 
Y darab számjegy esetén a számokat a 10 (Y—1)-ig érdemes generálni. 
Problémánk az osztásnál lehet, mert ha nem egész szám a hányados, a 
megoldás nem mindig egyezik meg a gép által előállított értékkel. Ezért 
itt célszerű inkább a hányados egészrészét és a maradékot kérdezni. 
A megoldást értékelni kell, rossz megoldás esetén megadni a megfelelő 
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hogy a tanuló ellenőrizhesse a saját megoldását. 
Idási időt is mérje a gép! 


program : 


FRINT 
PRINT 
FRINT 
PRINT 
FRINT 
PRINT 
INFRUT 
INPUT 
K-A:TI$-"údOD9A" 


FOR I 
AZINT 
B-INT 


" BEGBEEEEBET NEGY ALRARMUŰVELET GYAKORLAZA HETRE" 
" BRERBEBE1. CSSZEADSH" 
" PBBBBBE. KIVONASBHI" 


" BEREK EBB] ,. OÜSZTASH" 
" BIRBBBEJELYIK MŰVELETET GYAKOROL UIUK "7 
" HEHEHE ANY JEGYŰ SZAMOKKAL DÜLGOÖZUNK "EY 


zi TO 19 
(RND C(1sxl1AaTíÍYvYII 
(C(RNDÉ1L:XINDTÍTI:: 


üN5N A GOT ezü. 252. e52a.319 


INPUT 


mi 


IF D-C THEN K-KHEI:FRINT "JO":GOTO 170 
Az 


FRINT 
NEXT 
PRINT 
FRINT 
FRINT 
EHO 
PRINT 
C-AtB 
saru 
PRINT 
€-A-B 


"NEM JO. 8 JO MEGOLDAS": 
I 

negy 

" ENETETETETMTETET 18 FELADATBÓL "FK; "JO MEGOLDAZH! 
"MEGOLDASI IDO":TI/BA: "MASODPERC" 


AZ:tát:R;!-Nz 
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GOTO 14A 

PRINT Ar"at:BE"-"g 
C-AxB 

GOTO 148 

PHT HESZÜZBEVZÜK 


C-INTi6/B? 

1t1-A-CxB 

INPUT D 

INFUT "A HARRAROEK "FH 
IF €-(-D THEN GüTÜü 
IF $1-M THEN GűTAü 

FRINT "NEM Já. A HANYADOS "FE "A 
PRINT "gO"EKz 1 

caTO 17A 


3890 


ük 


Vegyük észre: 
—- Az erathosztenészi szita a prímek kiválogatására szolgál tetszőleges N 


számig. 


HARSADEK " F M:ESOTO 


Prímszám az a természetes szám, amelynek nincs valódi osztója. 


Belátható, hogy ha a prímeket az első N természetes szám között keres- 


sük, vizsgálódásunkat elég N-ig folytatni. 
Az oszthatóságot sorban az 1, 2, 3, 
gáljuk. 


A következő számmal való oszthatóságot már csak azokra a számokra 
érdemes vizsgálni, amelyek az előző vizsgálódás során prímeknek vagy 


N száimmokra mint osztókra vizs- 


legalább az addigi osztókkal relatív prímeknek bizonyultak. 


Így az N-nel való vizsgálódás után már csak a prímek maradnak meg. 


Ezeket kell kiíratni. 
folyamatábra : 
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A program: 

PRINT ".4" 

PRINT "BBBBEBBBBBERATÜSZTEHEMNESZ SzZITAJIRA BIB" 
INPUT "MILYEN ERTEKIG KERI ő  FRIMEKET"V;IN 

IF M5:-1i THEN MH-INT (Ms: GüTú 7Aü 


PRINT "ROSSZ AORT":GOTŰÚ ZA 
M-I 

DIM AÉ(N; 

FOR I-1 Tü NM 


Ati2-I 

NEXT I 

AZINTÉSORÉN: 

FOK Jsz TŰ A 

FOüR I-1i1 TŰ N 

IF A(CIS)-INTÁÉRÉ(I5—-J1534I THEM K-KHI:GOTŰ 1 
sara 129 

IF Kítzl THEN GOT ZAB 


a] 
S) 


NEAT J 

PRINT " HIRIRHETETáK FFEIMSZAMOK "z fd; "—TG ETET" 
EOK Tsi TON 

FEINT AíiI3 s 

NEAT I 

EMO 


Vegyük észre: 


Egyszerű a megoldás, ha azt az utat választjuk, hogy az átírandó számot 
először tízes számrendszerbeli számmá alakítjuk, csak azután írjuk át a 
kívánt számrendszerbe. 

Ha az átalakítandó számot számjegyenként kérjük be, az megkönnyíti 
a dolgunkat. 

Ha az első számjegy az Y. helyiértékű helyen áll, a számjegynek meg- 
felelő tízes számrendszerbeli számot úgy kapjuk meg, hogy a számje- 
jegyet szorozzuk az alapszám (Y-—1). hatványával. 

A szám tízes számrendszerbeli alakjából a tetszőleges számrendszerbe 
az euklideszi maradékos osztással írhatjuk át a számot. 

A program mindkét részét külön-külön már megoldottuk, ezek megfelelő 
összefűzése jó megoldáshoz vezethet. 
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A program: 


PRINT "44" 
PRINT "EBBBBBBBBEZHAFNRENDSZERN" 


FRINT " EEKHBIBIBHITE TSZÖÜLEGESBŐL TETSZOÖLEGESBENH" 


INPUT "5Z EREDETI ALAPSZAM":X 
INPUT "AZ UJ ALAFSZAM";Z 


INPUT "HANY SZAMJEGYBOŐL ALL A SZAMH!tEY 


DIM A( 179) 
DIM Bí(123a3 
PRINT "KEREM A SZAMDOT SZAMJEGYENKENT" 


199 FOR I-A Tűü Y-1 
119 INPUT A(I; 

129 NEA;T I 

13 FOR I-Aü Tü Y-1 


a H-(ívYr-15-I 
Z 5-S4A(I:xXxTH 
BA NEA;T I 
ra 2 E 
Aa 


I-I6t1 


Éj 
an H-INT(S/Z? 


en0 M-5-Hxz 

ela BfI3-H 

ezf IF H-A THEN GAüTO esü 
e23A 5-H 

egdü GOTO 189 


esa PRINT "HR"; ; 


A 
eü FOR J-I Tü A STEP -I 
erő PRINT BíJ?:s 
e390 NEAT J 
e3A END 


245. 


Vegyük észre: 


1: "SZAMRENDOSZERBELI SZAM" :Z? 


"BELI ALAKJAN" 


- Mivel a lövések koordinátáit folyamatosan gépeli be a játékot, és a gép 
is folyamatosan jelzi vissza a lövés helyességét, célszerű a GRAPHIC 2.1 


üzemmódban dolgozni. 


- A gép színezze a felrajzolt játékmezőknek azt a kockáját, amelyet a já- 


tékos a koordinátákkal megadott! 


-— A lövéseket célszerű tárolni, hogy a hajó kilövése után a játékosnak újra 
megmutathassa a gép a lövéseket a megfelelő sorrendben. Így a játé- 


kos ellenőrizheti a játékát. 
A program: 
DIM (19a) 
NIM vYíi1iga; 
PRINT "íg" 
PRINT "HERBEBBBBEEBRBEBBBETORFEDŐ HIETE" 
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an meg D mig 
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hb 
AI OVANNIEVNMEEDÜDAJANNELT E DIDID Ű b 4 Mű me ím d) DD 


JARDF5FDHADN9IDHNLÁI 


x3 


(E) ix) AZ 


N b.4b.b.4BR Kh .4h .h 


ho 


FEGLIT "A GEF EGY 
FRIHT "SHARMELTY 
SET AB 

IF A3-"" THEN G€ürTrTüű za 


SREÁFHICS; 1 
GULEIR d.lzr 
Süss E dgzm 


zENTéeRNDÁA124ITEá I 
YzINTEÉREHOL15xiilis41i 
I-n 
—I3t1 
INWPUT "4 KOGRÜIHARTA S FKÉI; 


IF K(I3:19 ÖR XK(IJ(1 THEM GSúTO ezn 
INPUT "Y KODROLAMATA S A YEII 

IF YfI3£11 AND Y-CI550 THEN GOTU 237 
PRINT "ROSSZ anaT":GOTO 180 


IF K3£K z 
IF YzYfI: THEM G0 
PRINT "MEM TALALT" 
CÖLÖR 15.157 

FAINT 1.KCISKEFRBZ3,YEIIAB613 
GOüTO 178 

PRINT "TALALT, ELSÜLLYEOT" 
COLOR 1,1.7 

PAINT 1.KÉIDZEHBZ,TY(ISZET13 
PRINT IF "LÖYESED VOLT." 

FOR Kzi TŰ ZEDAIMEKT K 


Tü 
(xi: THEN GÖTO ESA 
An a 


5CINMELR 

süss B 428 
COLOR 1.1. € 
FO Tü I 
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B NEXT J 
a 


NET L 


b 8-1:R-8 


54a MEXT K 
558 RETURN 


246. 


10 
e0 
39 
49 
59 
B90 
7a 
en 
aa 


Vegyük észre: 

- Kockadobáló programot már készítettünk. 

— Új probléma a kapott adatok ábrázolása. Szükséges a grafikon meg- 
rajzolása, az egységek bejelölése, az egyes tengelyek funkciójának je- 
lölése. 
160—170. sor: A tengelyek 
190—240. sor: A függőleges tengely egységeinek jelölése 
250—300. sor: A vízszintes tengely egységeinek jelölése 
320—390. sor: Az oszlopdiagram megrajzolása. 

A program: 


DIMHAFR(ZE I 

PRINT "44" 

PRINT " BEBABER EB EB EGE ER EE B MEgegET 0 CK ADOBALO HEH" 
FORI-1 TO 26 

RERDASÉ I? 

MEAT I 

FORI-1 Tü 159 

R-INTÉRND(ÁÉ1746856t1 

PRINTAF 


199 B(A2-B(R5D61 

119 NEXTI 

189 FORJ-1 TO 22009 

139 PRINT"ú" 

1490 GRAPHICI,I1 

158 CHARI1,IO,1,"KOCKADOBALO" 
169 DRALI1.,38,18 TO 36.184 
179 ORALMI,24,17E6TOZBZ,1768 
187 K-ü 

1989 CHAR1,151, "OB" 

enn FORJ-18ETO18R STEPB3 
219 DRALI1,34,JTOZB JI 

een K-K-1 

230 CHARL,1,J/8,ASP(K? 

24a MEXTJ 

250 CHAR1,35,83, "PONT" 
2eM FORI-7eTOZ5RE STEP3B 
270 ORALIL1,I, 174TOI,178 
ez7ü K-K-I1 

290 CHARL,I/8,23.AB(KI 
390 NEXTI 
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COLOR1,1,7 
FORI-1TOS 
KI-(I$19X38-4 
K2-(I4$1)x38t4 
Y15-1786-4xB(I) 
Y2-178 
BOX1,X1I,Y1,K2;YE 
PAINTI,XI$I,YI$I 
a8 NEXT 
AA DATA4A,38,35,374.32,39,28,25,24,22,20,18,16,14,12, 
19 ,8,8,4,2 
4190 DATA1.2.3,.4.5,8 
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247. Vegyük észre: 
- A feladat két részből áll. Célszerű a menü használata. 
Célszerű kapcsolókat építeni a programba. Pl.: Fordítandó karakterek 
vége: begépelt csillag. Kódolás vége: begépelt £ jel. 
A nem kódolt karaktereket célszerű jelezni. Pl. £ kiíratásával. 
A program: 


18 PRINT "44" 

en DIM A$(435:DIM R3-(437 

30 DIM S$(19A: 

4 FOR I-1 TON 4E 

A READ AZR(I: 

60 READ BZÉI: 

TA NEXT I 

si FRINT "44" 

an FRINT "BEBRBREEBBEBBBE ODULŐ PROGRAMTETEKIT 


199 FRINT "1. SZÖVEGBŐL KÜDH" 

119 PRINT "2. KODBÖL SZÖVEGEMEI" 

129 INFUT "MELYIK MODON DOLGOZUNK "FA 

139 IF 5-1 üR 5-£ THEN GOTO 158 

148 PRINT "ILYEM LEHETOSEG NIMHCS":GOTŰ 129 
1592 I-A 

188 IMHFUT AZ 

172 IF /£-"x" THEN GOTÜ eln 

189 1I-Iti 

199 S$í(I2-xX$ 

zna IF I-i9a8 THEN GüTŰ 189 

elü FüR J-1i Tü I 

220 FOR L:-i TO áz 

eza IF X-1 THEM IF S$í6I3-AőBÉL?!: THEN PRINT B§(L2F" "Fi 


hi 
zd4ü IF 5-2 THEN IF S£(I)-BSFÉL; THEN PRINT A$(L?7F:GOTO 279 
L. 
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289 PRINT "xx"; 

era MEXT J 

egA GET AZ És 

2530 IF sz"! THEN GOTO £89 

z2a8 IF A$X."£" THEN GüTŐ 29 

310 ENU 

32a DATA 8.1.-U.2.E.S3 RA TI TB. .7.I.8.0./3/P,18,8.11,5.18 
339 DATA F,14,6,15.H.1576,J,17.K,18,.L.13.72.28,XR,.21.,.C,22,4,23 
349 DATA N,25,M,2S,1,27.2,2B,3.23,4,30,5,31,5,32,7,33,8,34.9 
359 DATA ! 37,£,33,3.,39.7.4BD,F,41.,.,.42 


246. Vegyük észre: 

— Célszerű az ételek neve helyett azok kódjával dolgozni, mert ez gyor- 

sabb munkát tesz lehetővé. 
"  - A DATA-ban tárolva az ételek nevét és árát, nincs szükség a kódok tá- 

rolására, ha azokat az ételek tömbindexével azonosnak tekintjük. 

- A program nagy vonalakban a számlázó programunknak megfelelően 
működik. 

— Ügyelni kell arra, hogy miután egy asztal számláját elkészítettük, az asz- 
talhoz tartozó összes változó értéket törölni kell. 

A program: 


18 DIM S-(IRNDFDIM A(14):DIM TI(i4):DIM K(I1D,142 
em DIM AFR(14) 

38 PRINT"Ag" 

4A FOR Iz1 TÜ 14 

5A READ AP(II 

BA READ A(I) 

70 NEXT I 

BA PRINT"UI" 

87 PRINT"PBBBBEUKRASZORI PENZTARGEP HIEI" 

189 PRINT"BREGMIT CSIMAL JUNK ? EIB" 

119 PRINT"BEISHL. A FOGYASZTAS ROGZITESE" 

188 PRINT" BEEBZ. A SZAMLA! 

132 INPUT H 

142 ON M GOTO 189.,85A 

153 GOTO 138 

189 PRINT"! 

17ű  INPUT " EEKBEMETEFESTTEB SZ TALSZAMT EX 

1898 INPUT"BOBEHZ ETEL KODJATEK 
1 


aa I(XI-ILMaPI ETSI ém KEX ,Id-k 
zAR S(XIzZ(MIFAÉKI 
ziín GET 5£ 


IF A$3-"4"!" THEN GOTO 182 
IF A$-"UV" THEM GOTO 89 
GOTO ela 


INPUT " BERELT ESZ MESE 52 TALSZÁTAT FH 


min mr 
9 5) Mű om 
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FRINHTH4A4 CHRF(1l4d: 
FRINTHA ,TABC195FA 
PRINTH4 CHRH-T157 
FükR J7-I Tü I(5I 

Aa K-K er ,I:TA3R-ABRÍ(K I BB: A$-LEFTH(ABR,3A) 
FRINTHA ,TAB(C(ZAI ABE 

PRINTH4A USING"HHHHH.HHEN(KOD 

NMEA ag 


[90 Hó 
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zi PRINTHA CHESB(-(13? 

37Ad FRIHTH4ALTAR (ZER 3: "OSSZESEN" 

2388 FRINTS$4 SING" HHHHH.HHFZRC(AI 

389 FRINMTHA 

Jn CLÜüZE 4 

a 41-i Tü I(mo 

3J —,J:-A 

g :zm 

4 , 4 ÉTV 

azza Te xmoi-m 

Jad nűüTrűú am 

g7ű ORTA COLA,2 .MALHA 5.3. bANHGO 5.2, NARANCS 2.5 ,JUICE,15 
488 DRTA FUNCZSTORTA 4.5, DOBOÜZTÖRTS , 5.2, CITROMHTORTA 4.53 
gan úüsTA TŰNIK 3.53. FÜGRCZAZ.Z  HARRKA 4.5, FAGYI 1 GOMBOC,3 
sag NATA KAVE ,D.3 ,VANILIATORTA , 4. 


249. Vegyük észre: 

- A billentyűvel való rajzolás esetén lehetőséget kell adni arra, hogy a 
vonalakat balra, jobbra, fel, ill. lefelé húzzuk. Törlési lehetőséget is biz- 
tosítani kell. 

— Figyelni kell arra, hogy a vonalat ne húzhassa a használó a papíron túl, 
mert az problémát okoz. 


A program: 
18 PRINT"AJ" 
zü FRIMHT"HREBBEBRBBEEKATZOLAS BILLENTYŰVEL. HIRTETEJ" 
z FRINT"A§ GERPREL LEHET RAJZOLTATMI -R5;, TÖRÖLNI AT;" 
4 ERIHT"S"A VONALAT ESLRÖ -E?, JOBBRA £(J5, LE £L; ES" 
39 FRIHT"FELFELE -(F: HUZHMHIH" 
ed FRIHT"RBRARMELY GOHBE LENYOMHASARA IMDUL. A FEREOGRAM" 
TA FEREINT"MHEGALLNMI A €4Z BILLENTYŰVEL LEHET" 
zAü GET 
gű IF A mi sm 
lam a 
118 A zzüi 
izű 5 
izma 5 
i4Aa G 
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158 IF A$-"" THEN GOTO 148 

180 IF A$-"x" THEN GRAPHIC 9.,1:END 
172 IF A£-"!R" THEN Az-i:GOTO 190 
188 IF A$-"T" THEN Aza a 
199 IF A$-2"!"J"!" THEN GOTO ez 

zAan IF XI -32 148 

219 XZ-XIHI:GOTO 3198 

2289 IF AZZD"B" THEN GOTO 25A 

e38ü IF XIsSA THEN GOTO 14A 

248 X2-X1I1-1I:GOTO 3108 

25 IF As-ZLITF" THEN GOTUO 289 

zen IF Y1-ü THEN GOTO 148 

27a vez-Y1i1-1:GüTO 318 

zza IF A$-ZID"L" THEN GOTO 14A 

zam IF rY1-2AüR THEN GOTO 148 

an r2-riiti 

318 ORAL A;X1,Y1 TO XKe,TR 

329 K1-ke:Y1-Y2 

328 GOTO 14a 


250. Vegyük észre: 
— Az egyes betűk darabszámát érdemes tömbben tárolni. 
— A darabszámok ismeretében a százalékos értékek már kiszámíthatók. 
— Érdemes a programba kapcsolót építeni, ami figyeli, hogy a begépelni 
kívánt szöveg végére ért-e a használó. 
A program : 
DIM EF§(2565:DIM Bí(Z6BI 
FOR 1-1 TO 288 
RÉERÓ BEÉL3 
B-(I:.-A 
INEXMT I 
PELNT "ég 
PRINT  " jölRERERENEBEBB EE EG EEES Z ÜVEGELEHZÜ 
PRINT "A BEGEFPELT SZÜYEGRÜL MEGALLAPITJA HAH BENNE" 
PFEINT "SZEREFLÜ BETUK SZAZ 25 ARAllYAT HI" 
FRISS "SEPELZE BE. A ZÜVEGET.§ XX BILLENTTÜlYEL" 
PRINT "ALLHRT HMHEGBEEHI" 
GET AZ 
IF AEBZ"" THEN 6ü 
IF A£4-"x" THEM GB 
FRINKNHT AE: 
FüR I-1i1 Tü z8 
IF A£-BZÉI; THEN K-KáAI:BÉI53-BÉI?61 
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110 EN LL 4 ER LV a VR n VE V) 
an nna wnmne 
[s ll NK] 


9 NNDD 


PRINT " HIGH "EK; "BETUTU TARTALMAZO SZÖVEGBEN ELO-" 
PRINT "FORDULO BETUK SZAZALEKOS ARANYHAETEI" 

FOR I-i Tü 28 

PRINT BE(IJ:BCIJF"OB":B(CI3/Kk1RN: "AT, 

NEXT I 

END 

OGTA B/W.EAR,T;Y-U,I-0.P.A.S.D.F.G,H.J-K.L.Z.XC, 
V.B.E,M 


251. Vegyük észre: 


A 


— 


úm Mm 


(n -h 
bBUMEDÜVANNIAAMEDNDEMHDMMAIDID NM 


id mm am 


IX) 5) DD DD 


im ID ID 


MOD DDFR 


1109 Na ERR a 4 ERR A 4 TER a 1 RA LG Kt Tá er Hl CG Ki ell aa ll Tell vaj 


m 


A 
PRIIJT "4" 
PRINT " BERBEBEEBK ÉR BE EA SH ENEEBS Z ÜK I TALAL AD HRTEÁSTET " 


A megadott ötbetűs szavak közül a gép véletlenszerűen választ. A játék 
annál érdekesebb, minél több szóval játszhatunk. 

Az eltalált betűt a kipontozott rész megfelelő helyére kell íratni. 

Számolni kell a próbálkozásokat! 

A lehetséges betűk helyén szereplő öt pontot, ill. a már eltalált betűket 
is a képernyőnek azonos helyén érdemes kiíratni, mert ez kelti azt a lát- 
szatot, mintha a játékos által eltalált betű a helyére is kerülne. 

A feladat megoldható úgy, hogy a szavakat DATA-ban tároljuk (1.), és 
megoldható úgy is, hogy a szavakat file-ban tároljuk (2/a, 2/b). 
programok: 


DIM AxTZHJI 
HR — " BEREK ENEK ER Et EZ JEB JER EGői E E EZ EZ EM EZ IA: KA OG EIN EG ER EB JER JÖN TE GF IB EH EG IS [EH IEB E" 


READ ASZI) 
MEXT I 


zINT(RMD(15XEZIHI 


PRINT"A GEP EGY ÖTBETUS SZŰÜT REJTETT EL" 
PRFEINT"TEGY-EGY BETU BEGEPFPELESEVEL TIPPELHETSZA" 
PRINT" áá FEOGEAM BARMELY BILLENTYrIVEL IMOWULB" 
GET AS 


IF A§-"" THEN GOTO 139a 
PRINT"UZ" 

PRINT BEZ Tag géz" 
INPUTtA TIPPEOT:ME 

FÜR Izi Tü 5 


CSZLEFTE(HR,I-13 

IF /§$-EB3 THEN K-KkKéái : FRINT"AP"FESFÜS AE 
MNMEAT I 

FEINT "S": PRINT 5S$ 


55-76-61 
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m 
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IF K-5 THEN GüTŰ 179 


ez PRINT" HEHH ELTALALTAÓ AZ ELREJTETT SZÖT!H" 
erű PRINT" BPROBALKOÜZASBSAIÚ sSszálda "a 
zs3ü ENO 
szaz ORTA KALAP TAKAR KERES, KAVAR CSIBE CSsALÜK SAVAS , 
za DRTA KIHES .IMINCS  FALLG.PILLE.BIBREH ,ERRER , MEGO 
31 UATA FÜRÖZS ,SULYT,FURAT  Főkaü 
2/a 

im CIM SEz-7ÍnnaI 
2 
3a 
ad OPEN 1.1.9,"SsSzüKI" 
7, 11-i 
e INPUTH1.AR(I: 
7 1íF ST-B4 THEM GOTO 38 
s I-I41 : GÜTM EZ 
a CLÖSE 1 

192 SZIRHTÉRMHOCI: 329) 61 

119 PRINT"4" 

iíz8 PRINT" BEBBREE ENG EHE IREK 2 ük I TALAL AÚ BTESTSKEN" 

189 PRENT" "B GEF EGY ETBETUS SZUŰT BEJTETT EL" 
14Aa FRINT"EGY-EGY BETU BEGEPELESEYEL TIPPELHETSEZ." 
15ű PRINT" "BH PROGRAM BARMELY BILLENTYŰVEL  IMDUILE" 
lm SET AZ 

177 IF A4-"" THEN GOTÜ 188 

180 PRINT"44" 

199 PRINT 58". sss" 
29 IMHPUT"A TIPFED"FAZ 
210 FOR Izi Tü 5 
zzü EszmIiURIARÁÉB I, I, ii: 
szü CszLEFRFT3RÍJ(HE,I-1; 
zdü IF -§$-BE THEIJN K-Káil z PRINT A ZEFÜS AE 
esiü MEZT I 
25a PRIIWNT"4g4":FRINT 5$ 
z7űü 
za 
egni PRINT" Effd ELTELE 
zdn FRINHT "EPRÜBALKÜZ 
zig EHÜ 

2/k 

i£i FERIEITV.g" 

zA FRITIT" HERESEBBZZ ÜK ITTA 

zzz FRIIJT " HERERIS BESZ ÉRÉS HEG B 1! 


286 PRINT"HA 199 SZONAL KEVESEBBET RÜGZIT,; A ROüG-" 
27 FRINT"ZITES BEFEJEZTEVEL GEPELJE BE "UTOLSO"! ! nyegy" 
aA üIMm Ap: i1ga: 

gű I-i1 

an FEINT TF". SZÜ"; 

si IMFUT As 

7 IF ASZ "UTOLSÖ" THEN G0TŰ 99 

39 A$TI5-AZB 

ai HPFEMNM 1-1 s1"SszükI" 

108 FOR J-1 TO I-i1 

119 PRINTH1,AFRCI) 

12 NEST J 

is30 €LOŐSE 1 

1d8 ERn 


252. Vegyük észre: 

— Az alaphalmazt téglalappal, a két halmazt ellipszissel szokták jelölni 

(140—180. sor). 

— A halmazábra halmazkapcsolatnak megfelelő részét színezni kell (200- 
270. sor). 
A halmazkapcsolatokra vonatkozó szövegeket érdemes DATA-ban tárolni. 
Mivel a feladatnál szükségünk van a képernyőre az INPUT PRINT uta- 
sítások alkalmazásánál, a GRAPHIC 2,1 utasítást célszerű használni. 


1 


A program: 

FOR I-i Tü § 

READ ARFR(I; 

NEA;T I 

PETÍTSJT aa 

FRIRHT"BRBEMEZEBSEBHALHAEZEKARCSOLATÜK HIET" 

FOR IXIci TO § 

FRINHT A§(-(I7? 

MEAT I 

IMHFRUT " BESZEL YIK HALHAZERFOSOLATARA KIVANCSI T:X 
IF 7-3 THEK GüTű iga 


Me HIDD NN ERVE NEEE NNRPEMmDOD 
ís 


16 E 0 4 ER 414 EGO NLG E LL ala all Cell Ce Et Colt all 4 4 TRNLNUK NRRGOS HL up ELH : ERB LE Vh ERB p HENTES 


Z SRAPHIZ 2,1 

Ki PR I ÍJT " BEGEREAEK ENE EA RAL EREH ES ERA" F HTE( A 2 
9 COLOR 1.157 

7 BOX 1.8.2.319,159 

üz CIRCLE 1,.,1992.29a.9a.-a 

d CHAR LL déd A" 

9 CIRCLE 1.198;.88.939.50 

et GHER ÍSETt szg Et 

na ülő xx sürü zAA 217 Eza zza edüű eső esü era. .zega 
A FAINT 1í,1791.sAű : GüTMN EZzXa 

Za FAIHT 1.595.282 Gara zza 

a PAINMT 1.13931.8a : GüTÜ zza 


zs9d FAINT 1,.5353.50 


PHÁNT 1. .181:30 É£ PRINT 1.101 80 


sürü eza 
249 PRINT 1,181.2 : PAINT 1,131.893 : GOTO 250 
en PRINT 1-5I1I01I5.2 : PAINT 1.385./80 : GOTU 280 
258 PAINT 1,.1901.8§88 § FATINT 1.535 87 : GÖTÜO 288 
51550 


253. 
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NN .5hMmM ED 
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19 ó lna 


zar PRINT 1.191.86: PRINT 1.1 
[aj 


28 INFUT AZ 

egő IF A3-"9S" THEN SCNELR : GRAFHIC 951 : G6G0T0-48 
387 G5OTO 236 

at ART "1 A METSZET B" 

sza BATR "2: A KÜLÖNBSEG B" 

szi DATA "3. B KÜLÖNBSEG Hi" 

zga DATA "434. A UNMIG B" 

330 DARTA "5. A KOMPLEMENTER" 

384 DATA "8. B KOMPLEMENTER" 

ara DATA "7 a FA HALMAZ" 

aza DATA "3. B HALMAZ" 

399 DATA "3. VISSZATERES A MENURE" 


Vegyük észre: 

— A bűvös négyzet mindig egy sorozat egymást követő elemeit tartalmazza. 

— Egy háromszor hármas bűvös négyzet kockáiba írt számok és a sorozat 

elemei közti összefüggést a 190—210. sor tartalmazza. 

Az alaphelyzetben megadjuk az egyik átló számait. 

A játékos által eltalált számot a megfelelő kockálbba kel! kiíratni. 

— A mező megrajzolásához szükséges pontok koordinátáit célszerű DATA- 
ban tárolni. 


A program: 

FITT "ea" 

krkártákllogéemáságíríságenttelsés BiyOüsS MEGTZETH" 
PRIINT"A kozti RIZOL EGY BUVOS NHEGYZETET. 5" 
PRINT" NMEGROJA AZ EGYIK ATLOJAT. PROBALOÓ MEG " 
PRINT "KITALALNI Ai HIANYZO SZÁMOKAT!" 
PRINT" FROGRAM BARMELY BILLENTYŰVEL INDITHATO" 
SET AS 
IF Ae" " THEN GOTO 7H 

FOR IZIi TO 9 

E RERŐ X4I3 

d REFI YVÉEIG 

A NEXT I 

Ki AZINTÉRNŰCI:x8Mü 31 

a B-INTÉRNDÉ15332£953641 

a FüR J-i Tűú 209 : NMEAT J 

a FOR I-1i1 Tü 9 

a ArI535-AGIXB 

a NESZST 1 
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FOR TIzi TŰ 3 ZTEP 4 

CHAR 1. o YEII ETRECTBE [79 
MHEX 15 

kzüi 

IF L-£ THER GüTű dan 

K-kiá1 
INPUT"SOüRSZATT" 
INHPÜT"ERTEK "Fv 


1) Ú) í9 4) MM 
új M me d 0 
mm main 
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ra 
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n" 
x 
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37a PRINT"NEM gű" 
389 CGOTÜ 33599 

za PRINT"Ag" 

488 FRINT K:; "PROBALKUZAZOD VÜLT" 
gin EHÜ 

420 ORTA 14,6,13.B,24, 
43a MATA 144 ,4A,i 
34 OATA 194 ,£E4 ,£- 


Attis Id. TEsSStsie 
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254. Vegyük észre: 

- Az alapprogram csekély változtatással bármely tantárgy gyakorlására al- 
kalmas lehet. 

- Csak olyan feladatokat érdemes ilyen típusú gyakorlóprogramokban fel- 
használni, amelyekre egy betűvel, egy adott szóval, esetleg egy pontosan 
előre meghatározott mondattal (pl. szabály) lehet válaszolni. 

— A programot átírhatod úgy is, hogy az érdemjegyeket adjon. 

A program: 


17 DIM KECIARI : DI váE(Gidms 

ea ERINT "43" 

zü FETT" HBA URSZ EGERET ER EN E 1I FELSIVÜ EBBE" 
Aid IMPRIIT "AHANY FELADORBT "ani 

szf FOR Izi Tü HM 

GB ÍMFUT""KERD 

TA IMHPUTYYVAL 

2 MEXT I 

98 HFEMW telsis FIZIKAI 
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A FOK I-1 Tü N 

A PRINTH1I.KSC(I:,EHRE(135,VE(I: 
nm NEXT I 

a CLOSE 1 

9 END 


A program (rögzítő) : 


ín I-Aa 

eü OPEN 15150: "FIZIKA" 

30 I-I-31 

39 INPUTH1.KE(I7 

5A IMFUTHi1i.Y3rI; 

S IF ST€:564 THEN GÜTO 39 

ELŐSE 1 

PRINT "úg" 

PR INT " BEEE: E ES FMEHEBBE IZ IKA GYAKORLO HIETE" 
B PRINT"A GEP 28 FELADATOT AD. A KEPERNYON MEG- 
a PRINT"JELENDO FOUOGALOM MELLE A JELET KELL BEGE-" 
€ PRINT PELNED. A BEEP ELLENŐRZI ES ERTEKELI 6" 
A PRINT" YVALSEZHRIOSAT . BIBI" 

Z FRINT"HA IMDULHAT, igrotmii MEG EGY GUŰMBOT !" 

a GET ASZ 

An IF A$s-"" THEN GOTO 159 

Aa FRIMHT"u4" 

a FOüR J-1i Tü 18 

Aa A-INT-ITRHWHDOT19kxI561 

Aa FRINT KSE(HR? 

a INMFUT VE 


TM At ea ea s mk és im ma [j) Ü) AJ 
mA VÜANNBRBMVMEDIK DI 


em IF V$-YVE(RH) THEN S-S-4-ÍIÍ:PRINT"JO VALAZZ ":GÖOTŐ Z4ü 
23b PRINT"ROZSZZ VALASZ. A JŰ HEGOLOSAZ "/EX(AJ 

2z4gü NEXT J 

zsü PRINT"ú" 

zEü PRINT"EBBBBEEES B ERHEB FTEKELES HAUKER" 

e7ü PRINT"1A KERDESBOŐL ";z5 "Tü VALASZOT VÜLTT" 
e8ü IF S-E THEN PRINMT"EZ GYEMHGE EREGCMENY":GüaTaú zen 
zsA IF 5-7 THEM PRIHT"EZ KÜZEFES EREDMENY" :GOTO zeR 
3a9a IF s-Aa THEMH PRINT"EZ Jü EREDMENY": GOTOÚ ZzA 
318 PRINT"EZ KIVALO EREDMENY" 
SZA PRINT " HIBNEZZTETTETET ETET B EB DOLGOZOL HEG 77HEHNM" 
339 IHPUT BZ 

34dAa IF E$-"I" THEN GOüTÜ A 

258 EHn 
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255. Vegyük észre: 
- A zárak eredetileg zárva voltak, különben a rabok már régen megszöktek 


volna. 

Minden páratlan számú fordítás tehát nyitást, minden páros számú pedig 
zárást jelent. 

Mivel 1. fordítást minden ajtón, 2. fordítást minden második, 3. fordí- 
tást minden harmadik, ... n. fordítást minden n. ajtón hajtanak végre, 
ebből látszik, hogy egy záron annyiszor fordítják el a kulcsot, ahány osz- 
tója van. 

Nyitva lesz tehát az a cella, amely sorszámának páratlan, zárva, amely 
sorszámának páros számú osztója van. 

Ha az első látásra kézenfekvő két egymásba skatulyázott ciklust alkal- 
maznánk, amelyek az első 100 szám oszthatóságát vizsgálnák az első 
100 természetes számra nézve, a program nagyon sokáig futna. 

Elemezd a 160-—260. sort. Ez egy gyorsabb megoldása a feladatnak. 


A program: 
10 BIM Z(IDR3T DIM S(I19g8; 
eü FRINTVUJ" 
3ü PRINT" HBHEBBBETORÜK SZULTAN EZ § KETALLASII ZARBAHEI" 
a8 FRINT"A SZULTAN BÜRTÖNEBEN 199 FOGOLY VAN." 
na FRINT"MINDEM AJTON KETALLASL ZAR VAN." 
eü FRINT"TEGY FEGYORMEK AZT Az E TZTTTAA ST ADJA :HOGY" 
7 PRINT"MIMDEN EGYEZ A.J (OI TSÖN EGYET" 
si PRINTVA HAZIEMHAK , HOGY iI zanRÜüM, " 
38 FRINT"A SZAZAOIEMNAK , HOGY MINDEN szözZANIK zAöőRÖN" 
tám FRIMT"FOROITSOÜNM EGYET. AKINMEK A CELLAJA NYITVA" 
i192 FERIHT"HARAO,., SZT SZABSOON BOCSATIJHA" 
ieü KÉGLPEÉBÁ RAB LENNEL MELYIK CELLAT VALASZ TAINREVZ" ; 
138 INPUT X 
iíga £ 5 s THEN FEINT"SFIGYELJ JOÜBBAKRI! ": GGüTÜü 
Hé zi "Az üRÖK VEGZIK A FELRORTUKAT" 
151 
ira 
15 
132 
e 
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JEGYZET 
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TARTALOMJEGYZÉK 


FELADATOK 


1. A billentyűzet használata / — — —- - 


1.1 Példák semm mm 


1-2 Játékok — — — sm s ék am 
2. Számok és műveletek — — — —- - —- 
2.1 Példák és La szd de ják sk az 
2.2 A változók — — — — — - - 
3. A programozás — — — — — —- — 
3.1 A PRINT utasítás  — — — — -— 
3.2 A változók cseréje — — — — — 
3.3 Az INPUT utasítás — — — —- - 


3.4 Néhány gyakori függvény 


3.5 Az IF...THEN és a GOTO kapcsolata - 


3.6 A elleltís (IF... THEN alkalmazásával) 
37 A dömb — — — e s c 
3.8 FOR...TO...STEP és NEXT ciklusuta 
3.9 READ, DATA, RESTORE — —- - - 


3.10 
3.11 
3.12 
3.13 
3.14 
3.15 
3.16 
3.17 
3.18 
3.19 


GET A$ — — — —- — —-— —- — 
Időmérés számítógéppel (TI! és T1$) 
Képernyőkezelés, gyoaká — —- 
Zene — - - — — —- 
Karakterfüzér függvények — —- 


Logikai műveletek (OR, AND, NOT) é 


A sornyomtató használata — — — 
A kazettás egység — — — —-— — 


sítások 


Mit csinál a gép? Elemezd a programokat! 


Néhány vegyes feladat — — —-— — 


II. MEGOLDÁSOK 


1. A billentyűzet használata — — — -— 
1.1 Példák sz Éz. sé áá ám tám 7 faza rise 
2. Számok és műveletek — — —-— —-— — 
2.1 Példák s Tán ját véle. adá ém dé ÁB 
2.2 A változók — — — — — —- — 
3. A programozás — — — — — — — 


3.1 A PRINT utasítás — 


3.2 A változók cseréje — — — — — 
3.3 Az INPUT utasítás — — — —- — 
3.4 Néhány gyakori függvény — -— — 
3.5 Az IF THEN és a GOTO kapcsolata — 
3.6 A ciklus (IF...THEN alkalmazásával) 
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3.8 FOR...TO...STEP és NEXT ciklusutasítások 


3.9 READ, DATA, RESTORE — —- - -— 


3.10 


GETA$ — — — — — - - 
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3.15 
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3.18 
3.19 


Időmérés számítógéppel (TI és TI$) 


Képernyőkezelés, grafika 
Zene — —- —- —- — 
Karakterfüzér függvények 


Logikai műveletek (OR, AND, NOT) és ON . 


A sornyomtató használata — 


A kazettás egység — — 


Mit csinál a gép? Elemezd a programokat! 


Néhány vegyes feladat — 
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